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List of FM functions with returned states 



ID 

1 E72 


Function name States 


n_brU__OUI\JNbU 1 


ST_OK, ER NOK 


1 E13 


R_ASK_BASE_MODEL_PC 


ST_OK, ER_NOK 


1E15 


R_ASK_BASE_SW_VERS_PC 


ST_OK, ER NOK 


1 E76 


R_ROTPARAM_READ 


ST_OK, ER_NOK 


1E3E 


R_READ_DATETIME 


ST_OK, ER_NOK 


1E17 


R_USER_TIMEOUT ONOFF PC 


ST_OK, ER_NOK 


1E19 


R_LCW„ONOFF_PC 


St_OK, ER_NOK 




R_READ_MACH NR 


ST_OK, ER NOK 


1 E97 


R_READ_NO_MACH 


ST_OK, ER_NOK 




R_READ_NO_REMPL 


ST_OK, ER NOK 


1 E32 


R_HV_ONOFF_PC 


ST_OK, ER_NOK 




R_DISP_DESC_ONOFF_PC 


ST_OK, ER NOK 




R_KEYBOARD_ONOFF PC 


ST_OK, ER_NOK 




R_BLK_FRANK MENU PC 


ST OK, ER NOK 




R_BAT_ON_PC 


ST_OK, ER NOK 


1E38 


R_BAT_READ_PC 


ST_OK, ER NOK 




R_BAT_CLEAR_PC 


ST_OK, ER NOK 


1E7C 


R_GET_COUNTER 


ST_OK, ER_NOK 


1 ECC 


R_PC_READ MC TEXT 


ST_OK, ER NOK, ?ER MSTATE 


1E11 


R_TEXT_TO DISPLAY PC 


ST_OK, ER NOK, ER DATLEN, ER FORMAT 


1E6A 


R_SPC_MC_COR 


ST_OK, ER_STANDBY, ER CALL SERVICE, 
ER_DC_OPEN, ER_DATLEN, ER PARAMETER 


1E63 


R_SPC_GO_QUIET 


ST_OK, ER ROTOR, ER DC OPEN, 
ER_CALL SERVICE 


1E74 


R_SPC_DEC SET 


All* 


1EBF 


R_PC DEC SET TAX 


All* 


1E68 


l_SPC_QUIET 


ST_OK, ER HSB MS, ER HSB HOT, ER HSB STBY, 
ER_HSB FD 


1E5D 


l_PC_FRK EVENT 


ST_OK, ST QUIET, ST NEW DATE?. W .... L ... 


1E4D 


l_SPC„ROT_ERROR 


ER_CALL_SERVICE, ER ROTOR, ER CROSS, 
ER_BASE SPEED, ER DECADE, 
ER_PRINTER_NOTREADY 


1E03 


R_SPC_DISCONNECT 


■^■■H ST OK, ER ROTOR, ER DC OPEN, 
ER_CALL SERVICE 


1E3C 


R_SET_TMS_PC 


ST_OK, ER TMS ABORT, ER TMS ABORT MSG, 
ER_TMS_TRANSM, ER_TM S_CO N N ECT, 
ER_TMS MODEM, ER TMS PHONE BUSY, 
ER TMS MODEM INIT, ER TMS FAILED 


1 EA7 


R MdilCI. is FC 


ST OK, ?ER DATLEN 


1EA5 


R TOT READ PC 


ST OK, 'ER DATLEN 


1 ebB 


R_TOT_CLEAR PC 


ST_OK, ?ER DATLEN 


1 EA9 


R_READ_DAY_PC » 


ST_OK, ?ER_DATLEN 




REREAD YEAR PC 


ST OK. ?ER DATLEN 


1 EB7 


R_READ_Tgroup Par 


ST_OK ?ER DATLEN 


1 EA1 


R 1ST DPT PC 


ST OK ?ER DATLEN ST EoList 


1 f=/\3 


R_NEXT DPT PC 


ST OK ''ER DATLEN ST EcList 


1 EAB 


R_1 ST_DA Y_PC 


ST_OK 'ER DATLEN, ST EcLibt 


1 EAD 


R NEXT DAY PC 


ST OK 'FR DAT, EN ST EnList 


1EB1 


3 1ST Tqn'Grni,T PC 


ST OK ?ER DATLEN ST EoList 


1EB3 


=1 NEXT Tan Group PC 


ST OK, 'ER DATLEN, ST EoList 




3 nPTPARAM ncin 

i L/r 1 rnnnM ritAU 




1E0D 


3 DPT OPEN PC 


3T_OK ST Wr Cp'\r ST Cpt Exist ST NcDptSpace 


1E0F 


=LDPT CLOSE PC 


3T OK, ST Wr DptNr, ST Dpt Nexist , ST ClrContent 


1E53 


3 GET DPT PC 


3T.OK, ST Wl DptNr, ST Dpt Nexist 


1E55 F 


i CLEAR DP' PC 


=1T OK ST Wr DptN' ST Dot Nexist 


1E57 F 


=1 SUM RFAD PC 


3T_OK, ST Ndpt open 


1E59 F 


i ^UIV CLEAR PC 


-T OK ST Ndpt op«n 
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Conversions 



Attribute VB_Name = "Conversions" 

'Module Conversions contains routines to convert values form one 
'type to another. 

Option Explicit 

'Converts enumerated type FMTYPES to a string with the name 

Function FMTypeToString ( FMType As FMTYPES) As String 
Select Case FMType 
Case F3XXPLUS 

FMTypeToString = "F3XXPLUS " 
Case Else 

FMTypeToString = " (unknown) " 
End Select 
End Function 

'Converts enumerated type BASES to a string with the name 
Function BaseModelToS tring (Base As BASES) As String 



Select Case Base 






Case B120 






BaseModelToS tring 




"B120" 


Case B150 






BaseModelToS tring 




"B150" 


Case B220 






BaseModelToS tring 




"B220" 


Case B220P 






BaseModelToS tring 




"B220P" 


Case B250P 






BaseModelToS tring 




"B250P" 


Case B320P 






BaseModelToS tring 




"B320P" 


Case B335 






BaseModelToS tring 




"B335" 


Case B335P 






BaseModelToS tring 




"B33 5P" 


Case B335R 






BaseModelToString 




"B335R" 


Case B337 






BaseModelToString 




"B337" 


Case B337P 






BaseModelToString 




"B337P" 


Case B340P 






BaseModelToString 




"B340P" 


Case BTEST 






BaseModelToString 




"BTEST" 


Case Else 
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Conversions 



BaseModelToString = " (unknown) " 
End Select 

End Function 

'Composes the print image out of the information read from the FM 
and 

'returns it as string (e.g. 99.99 or 9999900 etc.) 

Function CreatePrintlmage ( ) As String 

Dim Config As New FMCTRLLib . FMConf ig 'Create an new FMC 

onfig object 

Dim strPrintlmage As String 'Define needed var 

iables 

Dim strFixZeros As String 
Dim strPostPoint As String 
Dim strPrePoint As String 

' ! ! ! Error handling must be done in the calling function ! ! ! 

Config. ActiveConnection = fMainForm.Con 'Define the connec 

tion to be used by Config 

strPrintlmage = String (Config . DecadeNumber - 1, "9") 'A "9" 

for each decade wheel do not add the last wheel yet 

If Config. LastDecadeType = LD09 Then 

strPrintlmage = strPrintlmage + "9" 'Add a "9" for the 

last decade wheel if last decade can be 0..9 

Else 

strPrintlmage = strPrintlmage + "5" 'Add a "5" for the 

last decade wheel if last decade be only 0 or 5 
End If 

strFixZeros = String (Config . FixedZeros, "0") 'A "0" for eac 
h fixed zero 

strPrintlmage = strPrintlmage + strFixZeros 'Add the zeros 

to the decade wheels 

If Config. DecPointPosition > 1 Then 'If FM uses a 

decimal point 

strPostPoint = Right { strPrintlmage, Config. DecPointPositio 
n - 1) 'Copy the characters that follow the decimal point 

strPrePoint = Left ( strPrintlmage, Len (strPrintlmage) - Con 
fig. DecPointPosition + 1) 'Copy the characters that are before the 

strPrintlmage = strPrePoint + "." + strPostPoint 'Inser 
t the decimal point 
End If ' 
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CreatePrint Image = strPrintlmage 'Return composed s 

tring 

Set Config = Nothing 'Disassociate Conf 

ig object 
End Function 

'Creates a format mask that can be used to format money values for 
displaying. 

'Attention: the "," (thousand sepparator) and the "." (decimal poi 
nt) will be 

automatically replaced by the signs defined in the Win 

dows country 

1 settings (e.g. "'" and ","). 

Function CreateCurrencyFormatMask ( ) As String 

Dim Config As New FMCTRLLib . FMConf ig 'Create an new FMC 

onfig object 

Dim strMask As String 'Define needed var 

iables 

' ! ! ! Error handling must be done in the calling function ! ! ! 

Conf ig.ActiveConnection = fMainForm. Con 'Define the connec 

tion to be used by Config 

strMask = "##,##0" 'Define the initia 

1 mask 

If Conf ig.DecPointPosition > 1 Then 'If FM uses a deci 

mal point 

'Add a " . " and as 
many "0" as there are decades in the FM after the point 

strMask = strMask + "." + String (Conf ig.DecPointPosition - 

1, "0") 
End If 

CreateCurrencyFormatMask = strMask 'Return mask 

Set Config = Nothing 'Disassociate Conf 

ig object 

End Function 

'Converts a True to a "Yes" and a False to a "No" 

Function BoolToYesNo (bBool As Boolean) As String 
If bBool Then 

BoolToYesNo = "Yes" 

Else 



Page 3 



Conversions 



BoolToYesNo = "No" 
End If 
End Function 

'Composes a string containing a list of the names of all available 
Franking Modes 

Public Function FrankModesToString { ) As String 

Dim Config As New FMCTRLLib . FMConf ig 'Create an new FMC 

onfig object 

Dim strFrkModes As String 'Define needed var 

iables 

' ! ! 3 Error handling must be done in the calling function ! ! ! 

''"{ Config. ActiveConnection = fMainForm. Con 'Define the connec 

tion to be used by Config 
]Z strFrkModes = "" 

% If Config. FrankModeAvailNorm Then 

ailable 

"A strFrkModes = "Normal" 

End If 

==, If Config. FrankModeAvailTape Then 
=?: ailable 

:j; If Len (strFrkModes) > 0 Then 

=r, dy an entry 

strFrkModes ~ strFrkModes + " / " 

;;; End if 

strFrkModes = strFrkModes + "Tapes" 
End If 

If Config. FrankModeAvailLetter Then 
If Len (strFrkModes) > 0 Then 

strFrkModes = strFrkModes + " / " 
End If 

strFrkModes = strFrkModes + "Letters" 
End If 

If Config. FrankModeAvail Item Then 
If Len (strFrkModes) > 0 Then 

strFrkModes = strFrkModes + " / " 
End If 

strFrkModes = strFrkModes + "Items" 
End If 

FrankModesToString = strFrkModes 

Set Config = Nothing 
ig object 



'If FRK_NORM is av 

'Set string 

'If FRK_TAPE is av 

'If there is alrea 

' Insert a / 

'Add Tapes 



'Return string 
'Disassociate Conf 
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End Function 

'Converts an index (used to identify the Franking Mode in a ComboB 
ox.ItemData) 

•to enumerated type FRANKMODES 

Public Function IndexToFrankMode ( Index As Integer) As FRANKMODES 
Select Case Index 
Case 0 

IndexToFrankMode = FRK_NORM 
Case 1 

IndexToFrankMode = FRK_TAPE 
Case 2 

IndexToFrankMode = FRK_LETTER 
Case 3 

IndexToFrankMode = FRK_I TEM 
End Select 
End Function 

'Select the whole text of the given TextBox. 

Public Sub SelectAll (txtBox As TextBox) 
txtBox.SelStart = 0 

txtBox. SelLength = Len (txtBox . Text ) 
End Sub 

"Get the appropriate text message to a return value from the FM Co 
ntrol library. 

Public Function RetValToText (RetVal As RETVALS) As String 
Dim s As String 

Select Case RetVal 
Case R_OK 

s = "OK, function successful." 
Case E_NOK 

s = "Not OK, general error." 
Case R_NEWDATE 

s = "Print date has changed." 
Case R_QUIET 

s = "FM in QUIET state." 
Case R_HVLIM 

s = "Postage is above High Value limit." 
Case E_T IMEOUT 

s = "Timeout has run down." 
Case E_CALLSERVICE 

s = "Call a service technician." 
Case E ROTOR 
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s = "Error on rotor." 
Case E_CROSS 

s = "Cross error." 
Case E_BASESPEED 

s = "Speed of base to high." 
Case E_DECADE 

s = "Decade wheels can not be set." 
Case E_PRINTER 

s = "Printer error." 
Case W_DESCREG 

s = "Low Credit warning (soon no more funds) . " 
Case W_ASCREG 

s = "Ascending counter warning level reached." 
Case W_MAXITEMS 

s = "Item counter warning level reached." 
Case W_READING 

s = "Reading warning level reached." 
Case W_BATTERY 

s = "Battery expiration date reached." 
Case L_DESCREG 

s = "No more funds (descending counter is zero)." 
Case L_ASCREG 

s = "Ascending register limit reached." 
Case L_MAXITEMS 

s = "Item counter limit reached." 
Case L_READING 

s = "Reading limit reached." 
Case L_B AT C H C OUNT E R 

s = "Batch counter full." 
Case L_DPT 

s = "Department counter full." 
Case L_TOT 

s = "Since Total statistics counter full." 
Case E_HSB_KEY 'RetVals for H 

SB (high speed base) 

s = "Key of high speed base is in wrong position." 
Case E_HSB_HOT 

s = "High speed base too hot." 
Case E_HSB_S TANDBY 

s = "High speed base is on standby." 
Case E_HSB_INKCOVER 

s = "Ink cover of high speed base is open." 
Case Else 

s = "Error: unhandled RetVal ! " 
End Select 

RetValToText = s 
End Function 
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'Get the appropriate short text message to a return value from th 
FM Control library. 
"These short texts are used for displaying in the Frankings list 
f frmFranking 

Public Function RetValToShortText (RetVal As RETVALS) As String 
Dim s As String 

Select Case RetVal 
Case R_OK 

s = "OK" 
Case E_NOK 

s = "Error" 
Case R_NEWDATE 

s = "New Date" 
Case R_QUIET 

s = "QUIET" 
Case R_HVLIM 

s = "HV limit" 
Case E_TIMEOUT 

s = "Timeout" 
Case E_CALLSERVICE 

s = "Call service" 
Case E_ROTOR 

s = "Rotor error" 
Case E_CROSS 

s = "Cross error" 
Case E_BASESPEED 

s = "Base speed" 
Case E_DECADE 

s = "Decade error" 
Case E_PRINTER 

s = "Printer error" 
Case W_DESCREG 

s = "Low Credit" 
Case W_ASCREG 

s = "Warning: Ascending" 
Case W_MAXITEMS 

s = "Warning: Items" 
Case W_READING 

s = "Warning: Reading" 
Case W_BATTERY 

s = "Warning: Battery" 
Case L_DESCREG 

s = "No more funds" 
Case L_ASCREG 

s = "Limit: Ascending counter" 
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Case L_MAX ITEMS 

s = "Limit: Item counter" 
Case L_READING 

s = "Limit: Reading" 
Case L_BATCHCOUNTER 

s = "Batch counter full" 
Case L_DPT 

s = "Department full" 
Case L_TOT 

s = "Statistics full" 
Case Else 

s = "Error: unhandled RetVal ! " 
End Select 



RetValToShortText = s 
-- End Function 

'Displays the appropriate message box to a return value from the F 
Wf M Control library. 

\[ 'Some of the messages need to be answered and an action must be ta 
^ ken. 

r - Public Sub ProcessRetVal {RetVal As RETVALS) 

;^ Dim msg As String 

:= : : Dim MsgBoxStyle As VbMsgBoxStyle 

;; Dim bShowMsgBox As Boolean 

li Dim NL As String 

NL = Chr(13) 'Define newline character 

* ==i bShowMsgBox = True 

msg = Re tValToText (RetVal) 'Get the text message for 

the RetVal 



Select Case RetVal 
Case R_OK 

bShowMsgBox = False 'Do not show message box 

frmFranking. sbStatusBar. SimpleText = "Ready for Franking" 
'Write to StatusBar of frmFranking 
Case E_NOK 

MsgBoxStyle = vbCritical 
Case R_NEWDATE 

msg = msg + NL + "Confirm new date?" 

MsgBoxStyle = vbYesNo + vbQuestion 'Message box w 

ith Yes and No buttons 

If vbYes = MsgBox(msg, MsgBoxStyle) Then 'If Yes clicke 

d 

ConfirmNewDate 'Confirmation 
is sent to FM 
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End If 

bShowMsgBox = False 'Do not show a 

dditional message box 
Case R_QUIET 

frmFranking. sbStatusBar. SimpleText = "Quiet" 'Write to 

StatusBar of frmFranking 

MsgBoxStyle = vblnformation 

bShowMsgBox = False 'Do not show m 

essage box 

Case R_HVLIM 

msg = msg + NL + "Accept high postage?" 

MsgBoxStyle = vbYesNo + vbQuestion 'Message box w 

ith Yes and No buttons 

AnswerHVLimit (MsgBox (msg, MsgBoxStyle)) 'Send message 

to FM depending on the button pressed 

bShowMsgBox = False 'Do not show a 

dditional message box 
Case E_T IMEOUT 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vblnformation 
Case E_CALLSERVICE, E_ROTOR / E_CROSS, E_B AS E S PEE D , E_DECADE, E 
_PRINTER 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vbCritical 
Case W_DESCREG, W_ASCREG, W_MAXITEMS, W_READING, W_BATTERY 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vblnformation 
Case L_DESCREG, L_ASCREG, L_MAX ITEMS, L_READING, L_BATCHCOUNTE 
R, L_DPT, L_TOT 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vbExclamation 
Case E_HSB_KEY, E_HSB_HOT, E_HSB_STANDBY, E_HSB_INKCOVER 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vblnformation 
Case Else 

MsgBoxStyle = vbCritical 
End Select 

If bShowMsgBox Then 

MsgBox msg, MsgBoxStyle 'Show message 

box with parameters declared above 

End If 
End Sub 

'Send HVDeblock or HVAbort depending on the message box result 

Private Sub AnswerHVLimit (MsgBoxResult As VbMsgBoxResult ) 

Dim Actions As New FMCTRLLib . FMAct ions 'Create an new FMA 
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ctions object 

Dim Ret As RETVALS 'Define needed var 

iables 

' ! ! ! Error handling must be done in the calling function ! ! ! 

Actions . ActiveConnection = fMainForm. Con 'Define the connec 
tion to be used by Actions 

If MsgBoxResult = vbYes Then 'If Yes clicked in 

message box 

Ret = Actions .HVLimitDeblock 'Send High Value d 

eblock message 

Else 'No clicked in mes 

sage box 

f Ret = Actions . HVLimitAbort 'Send High Value a 

"bort message 
:j End If 

;f Set Actions = Nothing 'Disassociate Acti 

Jons object 

. i ProcessRetVal Ret 'Process Ret (show 

:J message if necessary) 
-End Sub 

1 'Sends New Date Confirmation to FM (the FM then adjusts date if it 
-\ has automatic date, or 

'p supposes that the user has adjusted the date manually. 

'Private Sub Conf irmNewDate ( ) 

Dim Actions As New FMCTRLLib . FMActions 'Create an new FMA 

ctions object 

' ! ! ! Error handling must be done in the calling function ! ! ! 

Actions .ActiveConnection = fMainForm. Con 'Define the connec 

tion to be used by Actions 

Actions .NewDateConf irm 'Send confirmation 

Set Actions = Nothing 'Disassociate Acti 

ons object 

End Sub 
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Attribute VB_Name = "ErrorHnd" 
Option Explicit 

'Displays an error message for the last error occured. 

'The exceptions of the FM Control library are converted using vbOb 

jectError as offset. 

Sub ErrorHandler ( ) 

Dim msg As String 

Dim MsgBoxStyle As VbMsgBoxStyle 
MsgBoxStyle = vbCritical 
Select Case Err. Number 

Case NOCONNECTION + vbOb j ectError To UNKNOWN + vbOb j ectError 
'All FM Control ExceptionlDs 
msg = Err .Description + " (" + CStr (Err .Number - vbObjectE 
rror) + ")." 'Convert error numbers using vbO jectError 

Case 13 'Type missmatch - occurs when trying to conver 

t a text into a number 

msg = "One or more of the entered values are invalid" + " 
(" + CStr (Err. Number) + ")." 

Case Else 'Display all other messages as they are 

msg = Err .Description + " (" + CStr (Err .Number ) + ")." 

End Select 

'msg = msg + Chr(13) + "Source: " + Err. Source 'Display 
source on a new line 

MsgBox msg, MsgBoxStyle 'Show mess 

age 

End Sub 
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Attribute VB_Name = "Start" 
'Application starts with this module 

Option Explicit 

Public fMainForm As frmMain 
Global nComPort As Integer 

'Application starts with this Sub 

Sub Main ( ) 

Set fMainForm = New frmMain 'Create new frmMain 

fMainForm. Show 
End Sub 
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VERSION 5.00 

Begin VB . Form f rmAbout 

BorderStyle 

Caption = 

ClientHeight 

ClientLeft 

Client Top 

ClientWidth 

ClipControls 

Icon 

LinkTopic 
MaxButton 
MinButton 
ScaleHeight = 
ScaleWidth 
ShowInTaskbar = 
StartUpPosition = 
Tag 



Begin VB . PictureBox piclcon 



3 'Fixed Dialog 

"About " 

3630 

45 

330 

5865 

0 'False 

"f rmAbout . f rx" : 00 

" Forml " 

0 'False 

0 'False 

3630 

5865 

0 'False 

1 ' CenterOwner 
About Projectl" 



AutoSize 
BackColor 
ClipControls 
Height 
Left 
Picture 
ScaleHeight 
ScaleMode 
ScaleWidth 
Tab Index 
TabS top 
Top 
Width 



End 

Begin VB . CommandButton cmdOK 



End 

Begi: 



' True 
&H00C0C0C0& 
0 'False 
540 
240 

" f rmAbout . f rx" : 0442 
480 

0 'User 



240 
540 



Cancel 


-1 


Caption 


"OK" 


Default 


-1 


Height 


345 


Left 


4245 


Tablndex 


0 


Tag 


"OK" 


Top 


2625 


Width 


1467 



VB . CommandButton cmdSys Info 



Caption 
Height 
Left 

Tablndex 
Tag 
Top 
Width 



"&System Info. 

345 

4260 

1 

"&System Info. 

3075 

1452 



Begin VB. Label lbLibraryVeris 



Caption 
Height 
Left 

Tablndex 

Top 

Width 



"Library Version" 
255 
1050 



Begin VB. Label Labell 
Caption 
Height 
Left 

Tab Index 
Top 
Width 

End 

Begin VB . Label lblDescription 



"Ascom Autelca AG Mailing Systems" 
255 
1050 



Caption 
ForeColor 
Height 
Left 

Tab Index 
Tag 
Top 
Width 
End 

Begin VB. Label lblTitle 
Caption 
ForeColor 
Height 
Left 

Tablndex 
Tag 
Top 
Width 

End 

Begin VB.Line Linel 
BorderColor 
BorderStyle 
Index : 
XI 



f rmAbout . frx" : 0 
&H00000000& 
690 
1050 
6 

"App Description" 
1680 
4095 



Application Title" 
&H00000000& 
240 
1050 
5 

"Application Title" 



X2 
Yl 
Y2 

End 

Begin VB.Line Linel 
BorderColor = 
BorderWidth 
Index 
XI 
X2 



&H00808080& 
6 'Inside Solid 
1 

225 
5657 
2430 
2430 



&H0OFFFFFF& 



240 
5657 
2445 
2445 



Begin VB. Label lblVersion 



Caption 

Height 

Left 

Tablndex 
Tag 
Top 
Width 



"Version " 

255 

1050 

4 

"Version" 

600 

4095 



Begin VB. Label lblDisclaimer 



ForeColor 

Height 

Left 

Tablndex 
Tag 



&HOO0OO0OO& 

825 

255 



Top = 262 5 

Width = 3750 

End 

End 

Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 

1 Reg Key Security Options. . . 
Const KEY_ALL_ACCESS = &H2003F 



1 Reg Key ROOT Types . . . 

Const HKE Y_LOCAL_MACH I NE = &H80 000 002 
Const ERROR_SUCCESS = 0 

Const REG_SZ = 1 ' Unicode nul terminated string 

Const REG_DWORD = 4 ' 3 2 -bit number 



Const gREGKE YSY S INFOLOC = " SOFTWARE\Microsof t\Shared Tools Location" 
Const gREGVALSYS INFOLOC = "MSINFO" 

Const gREGKEYS YS INFO = "SOFTWARE\Microsof t\Shared Tools\MSINFO" 
Const gREGVALSYS INFO = "PATH" 



Private Declare Function RegOpenKeyEx Lib "advapi32" Alias 
"RegOpenKeyExA" (ByVal hKey As Long, ByVal IpSubKey As String, ByVal 
ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As 
Long 

Private Declare Function RegQueryValueEx Lib "advapi32" Alias 
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, 
ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, 
ByRef IpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) 
As Long 

Private Sub Form_Load() 

lblVersion. Caption = "Version " & App. Major & "." & App. Minor & "." 
& App. Revision 

lblTitle. Caption = App. Title 

lbLibraryVeri son. Caption = "FM Control library version " + 
fMainForm.Con.LibraryVersion 'Display Version of FM Control Library 

End Sub 

Private Sub cmdSysInf o_Cl ick ( ) 
Call StartSysInfo 

End Sub 

Private Sub cmdOK_Click ( ) 
Unload Me 

End Sub 

Public Sub StartSysInfo () 

On Error GoTo SysInfoErr 



Dim rc As Long 

Dim SysInfoPath As String 



' Try To Get System Info Program Path\Name From Registry. . . 
If GetKeyValue (HKEY_LOCAL_MACHINE, gREGKEYS YS INFO , 
gREGVALSYSINFO, SysInfoPath) Then 

1 Try To Get System Info Program Path Only From Registry. . . 
Elself GetKeyValue (HKEY_LOCAL_MACHINE , gREGKEYSYSINFOLOC , 
gREGVALSYSINFOLOC, SysInfoPath) Then 

' Validate Existance Of Known 32 Bit File Version 
If {Dir (SysInfoPath & "\MSINF032.EXE") <> » '• ) Then 
SysInfoPath = SysInfoPath & "\MSINF032.EXE" 

' Error - File Can Not Be Found. . . 
Else 

GoTo SysInfoErr 

End If 

• Error - Registry Entry Can Not Be Found. . . 
Else 

GoTo SysInfoErr 

End If 



Call Shell (SysInfoPath, vbNormal Focus) 



Exit Sub 
SysInfoErr: 

MsgBox "System Information Is Unavailable At This Time", 

vbOKOnly 
End Sub 



Public Function GetKeyValue (KeyRoot As Long, KeyName As String, 
SubKeyRef As String, ByRef KeyVal As String) As Boolean 
Dim i As Long 

Counter 

Dim rc As Long 

Code 

Dim hKey As Long 
To An Open Registry Key 

Dim hDepth As Long 

Dim KeyVal Type As Long 
Type Of A Registry Key 

Dim tmpVal As String 
Tempory Storage For A Registry Key Value 

Dim KeyVal Size As Long 
Of Registry Key Variable 

' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE . . . } 

KEY_ALL_ACCESS , hKey) 



Loop 
Return 
Handle 

Data 



rc = RegOpenKeyEx (KeyRoot, KeyName 
Open Registry Key 



ERROR_SUCCESS) Then GoTo GetKeyError 



tmpVal = String$ (1024 , 
Variable Space 



KeyValSize = 1024 
Variable Size 



Mark 



Retrieve Registry Key Value. . . 



rc = RegQueryValueEx (hKey , SubKeyRef, 0, KeyValType, tmpVal , 
KeyValSize) ' Get/Create Key Value 



If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError 



tmpVal = VBA.Left (tmpVal, InStr (tmpVal, VBA.Chr(O)) - 1) 

' Determine Key Value Type For Conversion. . . 

Select Case KeyValType 1 
Data Types . . . 

Case REG_SZ ' 
Registry Key Data Type 

KeyVal = tmpVal 
Copy String Value 

Case REG_DWORD • 
Word Registry Key Data Type 

For i = Len( tmpVal) To 1 Step -1 

Convert Each Bit 

KeyVal = KeyVal + Hex (Asc (Mid (tmpVal, i, 
' Build Value Char. By Char. 

Next 

KeyVal = Format$("&h" + KeyVal) 
Convert Double Word To String 
End Select 



Search 
String 



GetKeyValue = True 

Success 

rc = RegCloseKey (hKey) 
Registry Key 

Exit Function 



Return 

Close 

Exit 



GetKeyError : 

KeyVal = "" 
Return Val To Empty String 

GetKeyValue = False 

Failure 

rc = RegCloseKey (hKey) 
Registry Key 
End Function 



Cleanup After An Error Has Occured. 



Set 

Return 
Close 



VERSION 5.0 0 

Object = " {BDC217C8-ED16-11CD-956C-OOOOC04E4COA}#1. 1#0" ; " TABCTL3 2 . OCX " 
Begin VB.Form frmConfig 

BorderStyle = 3 'Fixed Dialog 

Caption = "Configuration" 

ClientHeight = 4 920 

ClientLeft = 2565 

ClientTop = 1500 

ClientWidth = 5910 

Icon = "f rraConf ig . f rx" : 0000 

KeyP review = -1 'True 

L inkTop i c = " Forml " 

MaxButton = 0 ' False 

MinButton = 0 'False 

ScaleHeight = 4 92 0 

ScaleWidth = 5910 

ShowInTaskbar = 0 'False 
StartUpPosition = 1 ' CenterOwner 
Begin TabDlg.SSTab tabConfig 

Height = 4215 

Left = 120 

Tablndex = 13 

Top = 12 0 

Width = 5655 

_ExtentX = 997 5 

_ExtentY = 7435 

JVersion = 393216 

Style = l 

Tabs = 2 

Tabs Per Row = 2 

TabHeight = 52 0 

TabCaption(O) = "Properties" 

TabPicture (0) = "f rmConf ig. f rx" : 0442 

Tab (0) .ControlEnabled= -1 'True 

Tab(0) .Control (0)= " f raFrankingModes " 

Tab ( 0 ) . Control ( 0 ) . Enabled= 0 ' Fal se 

Tab(0) .Control (1)= "fraGeneral" 

Tab (0) .Control (1) .Enabled= 0 'False 

Tab(0) .Control (2)= " f raPrintlmage " 

Tab (0) .Control (2) .Enabled= 0 'False 

Tab (0) .Control (3) = "fraBase" 

Tab (0) .Control (3) .Enabled= 0 'False 

Tab(0) .Control (4)= "fraFeatures" 

Tab (0) .Control (4) .Enabled= 0 'False 

Tab(0) .Control Count = 5 

TabCaption(l) = "Settings" 

TabPicture (1) = "f rmConf ig. f rx" : 045E 

Tab (1) .ControlEnabled= 0 'False 

Tab ( 1 ) . Control ( 0 ) = " f raLowCredi tWarn " 

Tab ( 1 ) . Control ( 1 ) = " f raUserTimeout " 

Tab ( 1 ) . Control (2 ) = » f raKeyboard" 

Tab(l) .Control (3)= "f raHighValue " 

Tab ( 1 ) . Control ( 4 ) = " f raFrankMenu " 

Tab ( 1 ) . Control ( 5 ) = "fraDescReg " 

Tab ( 1 ) . ControlCount= 6 

Begin VB . Frame f raLowCreditWarn 

Caption = "Low Credit warning" 

Height = 1095 

Left = -72120 

Tablndex = 53 

Top = 4 8 0 



Width = 2535 

Begin VB . CommandButton cmdLowCreditWarnDeactivate 

Caption = "Deactivate" 

Height = 495 

Left = 1320 

Tab Index = 7 

Top = 3 60 

Width = 975 

End 

Begin VB. CommandButton cmdLowCreditWarnActivate 

Caption = "Activate" 

Height = 495 

Left = 240 

Tablndex = 6 

Top = 360 

Width = 975 

End 

End 

Begin VB. Frame f raUserTimeout 

Caption = "User timeout" 

Height = 1095 

Left = -72120 

Tablndex = 52 

Top = 2880 

Width = 2535 

Begin VB . CommandButton cmdUserTimeOutDeactivate 

Caption = "Deactivate" 

Height = 4 95 

Left = 1320 

Tablndex = n 

Top = 360 

Width = 975 

End 

Begin VB. CommandButton cmdUserTimeOut Activate 

Caption = "Activate" 

Height = 4 95 

Left = 240 

Tablndex = 10 

Top = 360 

Width = 975 

End 

End 

Begin VB. Frame fraKeyboard 

Caption = "FM keyboard" 

Height = 1095 

Left = -74760 

Tablndex = 51 

Top = 2880 

Width = 2055 

Begin VB . CommandButton cmdKeyboardUnlock 

Caption = "Unlock" 

Height = 495 

Left = 1080 

Tablndex - 5 

Top = 360 

Width = 73 5 

End 

Begin VB . CommandButton cmdKeyboardLock 

Caption = "Lock" 

Height = 4 95 

Left = 240 



Tablndex = 4 

Top = 360 

Width = 735 

End 

End 

Begin VB . Frame fraHighValue 

Caption = "High Value limit" 

Height = 10 95 

Left = -72120 

Tablndex = 5 0 

Top = 1680 

Width = 2535 

Begin VB . CommandButton cmdHVDeactivate 

Caption = "Deactivate" 

Height = 4 95 

Left = 1320 

Tablndex = 9 

Top = 3 60 

Width = 975 

End 

Begin VB . CommandButton cmdHVActivate 

Caption = "Activate" 

Height = 495 

Left = 240 

Tablndex = 8 

Top = 360 

Width = 975 

End 

End 

Begin VB. Frame fraFeatures 

Caption = "Features" 

Height = 102 0 

Left = 2880 

Tablndex = 43 

Top = 2160 

Width = 2535 
Begin VB. Label lbNrMailClass 

Caption = "4" 

Height = 255 

Left = 1600 

Tablndex = 49 

Top = 72 0 

Width = 900 

End 

Begin VB. Label lbMargin 

Caption = "Yes" 

Height = 255 

Left = 1600 

Tablndex = 48 

Top = 480 

Width = 90 0 

End 

Begin VB . Label IbAutoDate 

Caption = "Yes" 

Height = 25 5 

Left = 1600 

Tablndex = 47 

Top = 240 

Width = 900 

End 

Begin VB. Label LbNrMailClassLabel 



Caption = »Nr. of Mail Classes: 

Height = 255 

Left = 120 

Tablndex = 46 

Top = 72 0 

Width = 1400 

End 

Begin VB. Label lbMarginLable 

Caption = "Margin settable:" 

Height = 255 

Left = 120 

Tablndex = 45 

Top = 480 

Width = 1400 

End 

Begin VB. Label IbAutoDateLabel 

Caption = "Automatic date:" 

Height = 2 55 

Left = 120 

Tablndex = 44 

Top = 24 0 

Width = 14 00 

End 

End 

Begin VB . Frame f raBase 

Caption = "Base" 

Height = 1020 

Left = 240 

Tablndex = 3 8 

Top = 216 0 

Width = 253 5 

Begin VB. Label lbBaseSof tware 

Caption = "OO0O0OOB" 

Height = 255 

Left = 1000 

Tablndex = 42 

Top = 600 

Width = 1500 

End 

Begin VB. Label lbBaseModel 

Caption = "B335P" 

Height = 255 

Left = 1000 

Tablndex = 41 

Top = 300 

Width = 1500 

End 

Begin VB. Label lbSof twareLabel 

Caption = "Software:" 

Height = 255 

Left = 120 

Tablndex = 4 0 

Top = 600 

Width = 700 

End 

Begin VB. Label lbModelLabel 

Caption = "Model : " 

Height = 2 55 

Left = 120 

Tablndex = 39 

Top = 3 00 



Width = 700 

End 

End 

Begin VB. Frame fraPrint Image 

Caption = "Print image" 

Height = 1500 

Left = 2880 

Tab Index = 2 7 

Top = 480 

Width = 2535 

Begin VB. Label lbPrint Image 

Caption = "99999.00" 

Height = 255 

Left = 1500 

Tablndex = 3 7 

Top = 12 0 0 

Width = 1000 

End 

Begin VB. Label lbLastDecade 

Caption = "0 . . 9" 

Height = 2 55 

Left = 1500 

Tablndex = 3 6 

Top = 960 

Width = 1000 

End 

Begin VB. Label lbFixZeros 

Caption = "2" 

Height = 2 55 

Left = 1500 

Tablndex = 3 5 

Top = 72 0 

Width = 1000 

End 

Begin VB. Label lbDecPos 

Caption = "2" 

Height = 255 

Left = 1500 

Tablndex = 34 

Top = 480 

Width = 100 0 

End 

Begin VB. Label lbNrDecades 

Caption = "5" 

Height = 255 

Left = 1500 

Tablndex = 33 

Top = 240 

Width = 1000 

End 

Begin VB. Label lbPrintlmageLabel 

Caption = "Print image:" 

Height = 2 55 

Left = 120 

Tablndex = 3 2 

Top = 12 00 

Width = 13 00 

End 

Begin VB. Label lbLastDecadeLabel 

Caption = "Last decade type 

Height = 255 



Left = 120 

Tablndex = 31 

Top = 960 

Width = 1300 

End 

Begin VB. Label lbPixZerosLabel 

Caption = "Nr. of fixed zeros: 

Height = 255 

Left = 120 

Tablndex = 3 0 

Top = 72 0 

Width = 1300 

End 

Begin VB. Label lbDecPosLabel 

Caption = "Decimal position: " 

Height = 255 

Left = 120 

Tablndex = 2 9 

Top = 480 

Width = 1300 

End 

Begin VB. Label lbNrDecadesLabel 

Caption = "Nr. of decades:" 

Height = 255 

Left = 120 

Tablndex = 28 

Top = 240 

Width = 1300 



Begin VB. Frame fraGeneral 

Caption = "General" 

Height = 15 0 0 

Left = 240 

Tablndex = 18 

Top = 480 

Width = 2535 

Begin VB. Label lbFMSoftware 

Caption = "JPAB005H" 

Height = 255 

Left = 1200 

Tablndex = 26 

Top = 72 0 

Width = 1300 

End 

Begin VB. Label lbSerialNr 

Caption = "123456" 

Height = 2 55 

Left = 1200 

Tablndex = 25 

Top = 4 8 0 

Width = 13 00 

End 

Begin VB. Label lbFMType 

Caption = "F3XXPLUS " 

Height = 2 55 

Left = 1200 

Tablndex - 24 

Top = 240 

Width = 1300 

End 



Begin VB. Label IbApplication 

Caption = "Auto Tax with Acquisition Tax" 

Height = 495 

Left = 1200 

Tab Index = 23 

Top = 960 

Width = 1300 

End 

Begin VB. Label IbApplicationLabel 

Caption = "Application:" 

Height = 255 

Left = 120 

Tablndex = 22 

Top = 960 

Width = 1000 

End 

Begin VB. Label lbFMSof twareLabel 

Caption = "FM Software:" 

Height = 255 

Left = 120 

Tablndex = 21 

Top = 72 0 

Width = 1000 

End 

Begin VB. Label IbSerialNrLabel 

Caption = "Serial Nr.:" 

Height = 255 

Left = 120 

Tablndex = 2 0 

Top = 480 

Width = 1000 

End 

Begin VB . Label lbFMTypeLabel 

Caption = "FM Type:" 

Height = 2 55 

Left = 120 

Tablndex = 19 

Top = 240 

Width = 1000 

End 

End 

Begin VB . Frame f raFrankingModes 

Caption = "Franking Modes" 

Height = 600 

Left = 2880 

Tablndex = 16 

Top = 3360 

Width = 2535 

Begin VB. Label lbFrankModes 

Caption = "Normal / Tapes / Letters / Iter 

Height = 255 

Left = 120 

Tablndex = 17 

Top = 3 00 

Width = 2380 

End 

End 

Begin VB. Frame fraFrankMenu 

Caption = "Franking menu" 

Height = 1095 

Left = -74760 



Tablndex = 15 

Top = 1680 

Width = 2055 

Begin VB . CommandButton cmdFrankMenuUnLock 
Caption = "Unlock" 

Height = 495 

Left = 1080 

Tablndex = 3 

Top = 360 

Width = 73 5 

End 

Begin VB . CommandButton cmdFrankMenuLock 
Caption = "Lock" 

Height = 495 

Left = 240 

Tablndex = 2 

Top = 360 

Width = 73 5 

End 

End 

Begin VB. Frame fraDescReg 

Caption = "Descending register" 

Height = 1095 

Left = -74760 

Tablndex = 14 

Top = 48 0 

Width = 2055 

Begin VB . CommandButton cmdDescRegHide 

Caption = "Hide" 

Height = 4 95 

Left = 1080 

Tablndex - i 

Top = 3 60 

Width = 735 

End 

Begin VB . CommandButton cmdDescRegShow 
Caption = "Show" 

Height = 4 95 

Left = 240 

Tablndex = 0 

Top = 360 

Width = 735 

End 

End 

End 

Begin VB. CommandButton cmdClose 
Cancel = -1 'True 

Caption = "Close" 

Height = 3 75 

Left = 4680 

Tablndex = 12 

Top = 44 55 

Width = 1095 

End 

End 

Attribute VB_Name = "frmConfig" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' frmConfig displays the properties of the connected 



Franking Machine and allows to change its settings. 



Option Explicit 

Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 



Private Sub cmdDescRegHide_Click ( ) 

Dim Config As New FMCTRLLib . FMConf ig 
obj ect 

On Error GoTo ErrorHandler : 
case of an error 

Screen .MousePointer = vbHourglass 
pointer 

Config. ActiveConnection = fMainForm. Con 
to be used by Config 

Config . DescRegHide 
register 

Screen. MousePointer = vbDefault 
pointer 

Set Config = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
object 
End Sub 



1 Create an new FMConf ig 
■Jump to ErrorHandler in 
' Show hourglass mouse 
'Define the connection 

'Hide Descending 

'Show default mouse 
'Disassociate Config 

' Show default mouse 
'Handle errors (show 
'Disassociate Config 



Private Sub cmdDescRegShow_Click () 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Conf ig. ActiveConnection = f MainForm . Con 

Config. DescRegShow 'Show Descending 

registier 



Screen. MousePointer = vbDefault 
Set Config = Nothing 
Exit Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 



Private Sub cmdFrankMenuLock_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Conf ig .ActiveConnection = fMainForm . Con 



Conf ig . FrankMenuLock 

Screen .Mouse Pointer = vbDefault 
Set Config = Nothing 
Exi t Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 



' Lock Franking menu 



End Sub 

Private Sub cmdFrankMenuu"nLock_Click () 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen .MousePointer = vbHourglass 

Conf ig.ActiveConnection = f MainForm . Con 

Conf ig.FrankMenuUnlock 'Unlock Franking menu 

Screen .MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdHVActivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Conf ig.ActiveConnection = f MainForm. Con 

Conf ig.HVLimitActivate 'Activate High Value 

limit 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdHVDeactivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Conf ig.ActiveConnection = fMainForm.Con 

Conf ig.HVLimitDeactivate 'Deactivate High Value 

limit 



Screen. MousePointer = vbDefault 
Set Config = Nothing 
Exit Sub 



ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdKeyboardLock_Click () 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New PMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Config . ActiveConnection = fMainForm. Con 

Config. KeyboardLock 'Lock FM keyboard 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandl er 

Set Config = Nothing 
End Sub 

Private Sub cmdKeyboardUnlock_Click { ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Config. ActiveConnection = fMainForm. Con 

Config. KeyboardUnlock 'Unlock FM keyboard 

Screen .MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. Mouse Pointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdLowCreditWarnActivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Config. ActiveConnection = fMainForm. Con 

Config. WarningLowCreditActivate 'Activate Low Credig 

warning 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 



Private Sub cmdLowCreditWarnDeactivate_Click ( ) 'See Sub 
cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler : 

Screen. MousePointer = vbHourglass 

Config. ActiveConnection = f MainForm. Con 

Config. WarningLowCreditDeactivate 'Deactivate Low Credit 

warning 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdUserTimeOutActivate_Click { ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Config . ActiveConnection = f MainForm . Con 

Config. UserTimeoutActivate 'Activate User Timeout 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdUserTimeOutDeactivate_Click () 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Config .ActiveConnection = f MainForm . Con 

Config. UserTimeoutDeactivate 'Deactivate User Timeout 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 



VERSION 5.00 

Begin VB . Form f rmCounters 

BorderStyle = 3 'Fixed Dialog 

Caption = "Dialog Caption" 

ClientHeight = 2520 

ClientLeft = 2760 

ClientTop = 3 750 

ClientWidth = 5775 

Icon = " f rmCounters. frx" :0000 

LinkTopic = "Forml" 

MaxButton = 0 'False 

MinButton = 0 'False 

ScaleHeight = 2 52 0 

ScaleWidth = 5775 

ShowInTaskbar = 0 'False 
StartUpPosition = 1 'CenterOwner 
Begin VB. Frame Frame2 

Caption = "Batch counter" 

Height = 1695 

Left = 2760 

Tablndex = 5 

Top = 12 0 

Width = 2895 

Begin VB . CommandButton cmdBatchActivate 
Capt i on = » &Ac t i vat e " 

Height = 375 

Left = 1920 

Tablndex = l 

Top = 24 0 

Width = 855 

End 

Begin VB . CommandButton cmdBatchClear 
Caption = "&Clear" 

Height = 375 

Left = 1920 

Tablndex = 3 

Top = 12 00 

Width = 855 

End 

Begin VB . CommandButton cmdBatchRead 
Caption = "&Read" 

Height = 3 75 

Left = 1920 

Tablndex = 2 

Top = 720 

Width = 855 

End 

Begin VB. Label lbBatchltems 

Alignment = l 'Right Justify 

Caption = "4578" 

Height = 255 

Left = 840 

Tablndex = 17 

Top = 1200 

Width = 855 

End 

Begin VB. Label lbBatchActiveLabel 
Caption = "Active:" 

Height = 2 55 

Left = 240 

Tablndex = 16 



Top = 4 8 0 

Width = 495 

End 

Begin VB. Label lbBatchValue 

Alignment = 1 'Right Justify 

Caption = "4567899" 

Height = 255 

Left = 840 

Tablndex = 15 

Top = 84 0 

Width = 855 

End 

Begin VB. Label lbBatchActive 

Alignment = 1 'Right Justify 

Caption = "Yes" 

Height = 2 55 

Left = 840 

Tablndex = 14 

Top = 480 

Width = 855 

End 

Begin VB. Label lbBatchValueLabel 

Caption = "Value:" 

Height = 2 55 

Left = 240 

Tablndex = 7 

Top = 840 

Width = 495 

End 

Begin VB. Label lbBatchltemsLabel 

Caption = "Items:" 

Height = 255 

Left = 240 

Tablndex = 6 

Top = 12 0 0 

Width = 495 

End 

End 

Begin VB . Frame Framel 

Caption = "Postal counter" 

Height = 1695 

Left = 120 

Tablndex = 4 

Top = 12 0 

Width = 2535 

Begin VB. Label lbltems 

Alignment = 1 'Right Justify 

Caption = "91999199911 

Height = 2 55 

Left = 1200 

Tablndex = 13 

Top = 12 00 

Width = 1095 

End 

Begin VB. Label lbDescending 

Alignment = 1 'Right Justify 

Caption = "9 ' 999 ' 999 . 00" 

Height = 255 

Left = 1200 

Tablndex = 12 

Top = 84 0 



Width = 1095 

End 

Begin VB. Label IbAscending 

Alignment = 1 'Right Justify 

Caption = " 9 ' 999 ' 999 . 00 " 

Height = 255 

Left = 1200 

Tab Index = 11 

Top = 4 80 

Width = 1095 

End 

Begin VB. Label lbltemsLabel 

Caption = "Items:" 

Height = 255 

Left = 240 

Tab Index = 10 

Top = 1200 

Width = 975 

End 

Begin VB. Label lbDescendingLabel 

Caption = "Descending:" 

Height = 255 

Left = 240 

Tablndex = 9 

Top = 84 0 

Width = 975 

End 

Begin -VB. Label IbAscendingLabel 

Caption = "Ascending:" 

Height = 255 

Left = 240 

Tablndex = 8 

Top = 480 

Width = 975 

End 

End 

Begin VB . CommandButton cmdClose 
Cancel = -l 'True 

Caption = "Close" 

Height = 375 

Left = 4440 

Tablndex = 0 

Top = 2040 

Width = 1215 

End 

End 

Attribute VB_Name = " f rmCounters " 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmCounters displays the current values of the counters 
'and allows to control the Batch Counter of the FM. 

Option Explicit 

'Activates Batch Counter {switch it ON) 

Private Sub cmdBatchActivate_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 'Create an new FMActions 

object 



On Error GoTo ErrorHandler : 
case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .ActiveConnection = f MainForm . Con 
to be used by Actions 

Actions . BatchCounterActivate 
Counter in the FM 

Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 
End Sub 

■Clears the Batch Counter and displays the counter values and state 
(ON/OFF) before the clearing 

Private Sub cmdBatchClear_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 
object 

Dim strFormatMask As String 

Dim bOn As Boolean 

Dim nltems As Long 

Dim cValue As Currency 
On Error GoTo ErrorHandler: 
case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .ActiveConnection = fMainForm. Con 
to be used by Actions 



'Jump to ErrorHandler in 
'Show hourglass mouse 
'Define the connection 

'Activate the Batch 

'Show default mouse 
'Disassociate Actions 

'Show default mouse 
'Handle errors (show 
■Disassociate Actions 



strFormatMask = CreateCurrencyFormatMask 
displaying money values 

Actions . Bat chCounterClear bOn, nltems, cValue 
and receive its values before the clearing 

IbBatchActive = BoolToYesNo (bOn) 
counter values before clear 

lbBatchValue = Format (cValue, strFormatMask) 
lbBatchltems = Format (nltems , »##,##o") 

Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 



' Create an new FMActions 
'Define needed variables 

'Jump to ErrorHandler in 
'Show hourglass mouse 
'Define the connection 

' Create format mask for 

Clear Batch Couter 

Display the last 

'Show default mouse 
'Disassociate Actions 

' Show default mouse 
'Handle errors (show 



appropriate message) 

Set Actions = Nothing 'Disassociate Actions 

object 
End Sub 

'Reads the current counter values and state (ON/OFF) 

Private Sub cmdBatchRead_Click ( ) 'See Sub 

cmdBatchClear_Click for commentary (same structure) 

Dim Actions As New FMCTRLLib . FMActions 

Dim strFormatMask As String 

Dim bOn As Boolean 

Dim nltems As Long 

Dim cValue As Currency 
On Error GoTo ErrorHandler : 

Screen. MousePointer = vbHourglass 

Actions . ActiveConnection = f MainForm . Con 

strFormatMask = CreateCurrencyFormatMask 

Actions .BatchCounterRead bOn, nltems, cValue 'Read Batch Counter 
from FM 

lbBatchActive = BoolToYesNo (bOn) 'Display Batch 

Couter values 

lbBatchValue = Format (cValue, strFormatMask) 
lbBatchltems = Format (nltems , "##,##0") 

Screen. MousePointer = vbDefault 

Set Actions = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Actions = Nothing 
End Sub 

Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 



VERSION 5.0 0 

Begin VB . Form frmDateTime 
BorderStyle 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

LinkTopic 
MaxButton 
MinButton 
ScaleHeight 
ScaleWidth 
ShowInTaskbar 
StartUpPosition 



Fixed Dialog 
"Date & Time" 
1680 
2760 
3750 
2535 

" frmDateTime . f rx" 
" Forml " 
0 'False 
0 'False 
1680 
2535 

0 'False 

1 ' CenterOwner 



Begin VB. Frame fraDateTime 



Caption 
Height 
Left 

Tablndex 
Top 
Width 

Begin VB. Label lbDateTime 
Alignment 



FM system date && time (local) " 
975 



120 



120 
2295 



BackStyle 
Caption 
Height 
Left 

Tablndex 

Top 

Width 



Center 
0 ' Transparent 
"25.12.00 13:25:34" 
255 
120 
3 

480 
2055 



Begin VB . CommandButton cmdRef resh 



Caption 
Default 
Height 
Left 

Tablndex 

Top 

Width 



" &Ref resh" 

- 1 ' True 

375 

120 

0 

1200 
1095 



End 



375 
1320 



1200 
1095 



Begin VB . CommandButton cmdClose 
Cancel = -1 'True 

Caption 
Height 
Left 

Tablndex 
Top 
Width 
End 

End 

Attribute VB_Name = "frmDateTime" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

'frmDateTime displays the current local system time and date. 
'The display can be updated by clicking a button. 



Option Explicit 

Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 



'Read and display the current FM system time 

Public Sub cmdRef resh_Click () 

Dim Actions As New FMCTRLLib . FMActions 
FMActions object 
On Error GoTo ErrorHandler : 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .ActiveConnection = f MainForm. Con 
connection to be used by Actions 



lbDateTime . Caption 
from FM 



= Actions . GetTimeDate 



1 Create an new 
'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 

'read Date and time 

1 Show default mouse 
■Disassociate Actions 

'Show default mouse 
'Handle errors (show 
'Disassociate Actions 



Screen . MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler : 

Unload Me 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
obj ect 
End Sub 



VERSION 5.00 

Object = " {831FDD16-0C5C-llD2-A9FC-0000F8754DAl}#2 . 0#0" ; 
"MSCOMCTL.OCX" 
Begin VB.Form frmFranking 



BorderStyle 
Caption 
ClientHeight 
ClientLef t 
ClientTop 
ClientWidth 
Icon 

LinkTopic 
MaxButton 
MinButton 
ScaleHeight 
ScaleWidth 
ShowInTaskbar 
StartUpPosition = 



' Fixed Dialog 
"Franking" 
4440 
2760 
3750 
6975 

" frmFranking . f rx " 

" Forml " 

0 'False 

0 'False 

4440 

6975 

0 'False 

1 1 CenterOwner 



Begin MSComctlLib . StatusBar sbStatusBar 



Align 
Height 
Left 

Tablndex 

Top 

Width 

_ExtentX 

_ExtentY 

Style 

SimpleText 
Version 



'Align Bottom 



19 

4185 
6975 
12303 
450 



"Ready" 
_ 393216 

BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0FO283628} 
NumPanels = 1 

BeginProperty Panell {8E3867AB-8586-11D1-B16A-00C0F0283628 } 
EndProperty 
EndProperty 

End 

Begin VB . CommandButton cmdClearList 



End 
Begi: 



Caption 
Height 
Left 

Tablndex 

Top 

Width 



"&Clear list" 
375 
5640 
9 

2280 
1215 



MSComctlLib. Li stView lvFrankings 



Height = 1815 

Left = 120 

Tablndex = 8 

TabStop = 0 'False 

ToolTipText = "Frankings" 

Top = 22 8 0 

Width = 5415 

_ExtentX = 9551 

_ExtentY = 3 2 01 

View = 3 

LabelWrap = 0 "False 

HideSelection = -1 'True 

FullRowSelect = -1 'True 

GridLines = -1 'True 

_Version = 393217 

ForeColor = -2147483640 

BackColor = -2147483643 

BorderStyle = 1 

Appearance = 1 

NumI terns = 5 

BeginProperty ColumnHeader (1) 



{BDD1F052-8 58B-11D1-B16A- 



OOCOF0283628} 

Key = "Dummy" 

Text = "Dummy" 

Object. Width = 0 

EndProperty 

BeginProperty ColumnHeader (2) {BDD1F052-858B-11D1-B16A- 
00C0FO283628} 

Alignment = 1 

Subltemlndex = 1 
Key = "Number" 

Text = "#" 

Object. Width = 1058 

EndProperty 

BeginProperty ColumnHeader (3 ) {BDD1F052-858B-11D1-B16A- 
00C0F0283628} 

Alignment = 1 

Subltemlndex = 2 
Key = "Postage" 

Text = "Postage" 

Object .Width = 1764 

EndProperty 

BeginProperty ColumnHeader (4 ) {BDD1F052-858B-11D1-B16A- 
00C0F0283628} 

Alignment = l 

Subltemlndex = 3 
Key = "JobRest" 

Text = "Presel. rest" 

Object. Width = 1764 

EndProperty 

BeginProperty ColumnHeader ( 5 ) {BDD1F052-858B-11D1-B16A- 
00C0F0283628} 

Subltemlndex = 4 
Key = "Status" 

Text = "Status" 

Object. Width = 3528 

EndProperty 

End 

Begin VB . CommandButton cmdGoQuiet 
Caption = "Go &Quiet" 

Height = 375 

Left = 5640 

Tablndex = 7 

Top = 72 0 

Width = 1215 

End 

Begin VB. Frame fraSettings 

Caption = "Settings" 

Height = 1815 

Left = 120 

Tablndex = n 

Top = 120 

Width = 5415 

Begin VB.TextBox txtPreselectionDpt 

Alignment = l 'Right Justify 

Height = 2 85 

Left = 4200 

MaxLength = 3 

Tablndex = 5 

Text = " o " 

Top = 1320 

Width = 3 75 

End 

Begin VB.TextBox txtMargin 

Alignment = l 'Right Justify 

Height = 285 

Left = 4200 



MaxLength = 3 

Tablndex = 3 

Text = "20" 

Top = 840 

Width = 375 

End 

Begin VB.TextBox txtDptAcq 

Alignment = l 'Right Justify 

Height = 285 

Left = 4200 

Tablndex = 1 

Text = "9t 999igoo „ 

Top = 360 

Width = 975 

End 

Begin VB.TextBox txtPostage 

Alignment = l 'Right Justify 

Height = 285 

Left = 1560 

Tablndex = 0 

Text ' ="91 999 1 90O" 

Top = 360 

Width = 975 

End 

Begin VB.ComboBox cmbFrankMode 

Height = 315 

ItemData' = "f rmFranking . f rx" : 0442 

Left = 1560 

List = " f rmFranking. frx" : 0444 

Style = 2 'Dropdown List 

Tablndex • = 4 

Top = 132 0 

Width = 1215 

End 

Begin VB.ComboBox cmbMailClass 

Height = 315 

Left = 156O 

Style = 2 'Dropdown List 

Tablndex = 2 

Top = 840 

Width = 1215 

End 

Begin VB. Label lbPreselectionDpt 

Alignment = l 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Preselection:" 

Height = 255 

Left = 2880 

Tablndex = 17 

Top = 1380 

Width = 1215 

End 

Begin VB. Label lbMargin 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Margin:" 

Height = 2 55 

Left = 2880 

Tablndex = 16 

Top = 900 

Width = 1215 

End 

Begin VB. Label lbFrankMode 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Franking Mode:" 



Height = 255 

Left = 240 

Tablndex = 15 

Top = 13 8 0 

Width = 1215 

End 

Begin VB. Label IbMailClass 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Mail Class:" 

Height = 255 

Left = 240 

Tablndex = 14 

Top = 900 

Width = 1215 

End 

Begin VB. Label lbDptAcq 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Acquisition Tax:" 

Height = 255 

Left = 2880 

Tablndex = 13 

Top = 42 0 

Width = 1215 

End 

Begin VB. Label lbPostage 

Alignment = l 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Auto Tax:" 

Height = 255 

Left = 240 

Tablndex = 12 

Top = 42 0 

Width = 1215 

End 

End 

Begin VB . CommandButton cmdClose 

Cancel = -1 'True 

Caption = "Close" 

Height = 3 75 

Left = 5640 

Tablndex = 10 

Top = 3 72 0 

Width = 1215 

End 

Begin VB . CommandButton cmdSetDecades 

Caption = "&set Decades" 

Default = -1 'True 

Height = 375 

Left = 5640 

Tablndex = 6 

Top = 24 0 

Width = 1215 

End 

Begin VB. Label IbFrankings 

BackStyle = 0 'Transparent 

Caption = "Frankings:" 

Height = 2 55 

Left = 120 

Tablndex = 18 

Top = 2040 

Width = 855 

End 

End 

Attribute VB_Name = "f rmFranking" 



Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' frmF ranking provides the GUI for setting the FM ready for Franking. 
'In addition it contains a list of the Frankings that have been 
released. 



Option Explicit 

'Enable or disable the Preselection field depending on the chosen 
'Franking Mode and set the field to a valid value. 



If cmbFrankMode . ItemData (cmbFrankMode .Listlndex) = 0 Then 'If 
Franking Mode = Normal 

txtPreselectionDpt .Enabled = False 
'Disable Preselection field 

txtPreselectionDpt .Text = 0 

Else 

txtPreselectionDpt .Enabled = True 
txtPreselectionDpt .Text = 3 
End If 



Private Sub cmdClearList_Click ( ) 

lvFrankings.Listltems. Clear 'Clear the Frankings 

list 
End Sub 



Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 



■Set FM to QUIET state (not ready for Franking) 

Private Sub cmdGoQuiet_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 
FMActions object 
On Error GoTo ErrorHandler : 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .ActiveConnection = fMainForm. Con 
connection to be used by Actions 

Actions . GoQuiet 
state (not ready for Franking) 

frmFranking.sbStatusBar. SimpleText = "Quiet" 
StatusBar 



'Create an new 
'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 

'Set FM to QUIET 
'Write to 



Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

Set Actions = Nothing 'Disassociate Actions 

object 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

ErrorHandler 'Handle errors (show 

appropriate message) 

Set Actions = Nothing 'Disassociate Actions 

object 
End Sub 



•Set the FM ready for Franking 



Private Sub cmdSetDecades_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 
FMActions object 

Dim Config As New FMCTRLLib . FMConfig 
FMConfig object 

Dim Postage As Currency 
variables 

Dim AcquisitionTax As Currency 

Dim Department As Long 

Dim MailClass As Integer 

Dim FrankMode As FRANKMODES 

Dim Preselection As Integer 

Dim Margin As Integer 

Dim Ret As RETVALS 

Dim msg As String 
On Error GoTo ErrorHandler : 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions . ActiveConnection = f MainForm . Con 
connection to be used by Actions 

Config. ActiveConnection = f MainForm. Con 
connection to be used by Config 

If Config. AutoTaxFM Then 
Auto Tax application (Japan) 

Postage = CCur (txtPostage .Text) 

values 



'Create an new 
' Create an new 
'Define needed 



■Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 
'Define the 

'If FM is a special 
' Convert the entered 



AcquisitionTax = CCur (txtDptAcq . Text ) 
Department = CLng (txtPreselectionDpt .Text) 
Margin = CInt (txtMargin . Text) 

Ret = Actions . SetDecadesTax (Postage, AcquisitionTax, 
Department, Margin) 'Set Decades for Auto Tax FM 

Else 'Standard application 

Postage = CCur (txtPostage . Text) 'Convert the entered 

values 

Department = CLng (txtDptAcq. Text) 
MailClass = cmbMailClass . Listlndex + 1 
FrankMode = IndexToFrankMode (cmbFrankMode . ItemData 
(cmbFrankMode .Listlndex) ) 'Convert Franking Mode 

Preselection = CInt (txtPreselectionDpt .Text) 
Margin = CInt (txtMargin. Text) 

Ret = Actions. SetDecades (Postage, Department, MailClass, 
FrankMode, Preselection, Margin) 'Set Decades for Standard FM 
End If 



ProcessRetVal Ret 'Process the result 

of the Set Decades command (show message if necessary) 



Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
obj ect 

Set Config = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 

Set Config = Nothing 
object 



' Show default mouse 
'Disassociate Actions 
'Disassociate Config 

'Show default mouse 
'Handle errors (show 
'Disassociate Actions 
'Disassociate Config 



End Sub 



'Prepare frmFranking for the application used by the connected FM. 
'Some TextBoxes are used for different data entry depending on the 
'application (Standard / Auto Tax) 



Private Sub Form_Load() 

Dim Config As New FMCTRLLib . FMConf ig 
FMConfig object 

Dim MCTxtsO As String 
variables 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen .MousePo inter = vbHourglass 
pointer 

Config. ActiveConnection = fMainForm. Con 
connection to be used by Config 

txtPostage.Text = "0" 
Postage/AutoTax field 

txtDptAcq . Text = " 0 " 
Department /Ac quisitionTax field 

If Conf ig.AutoTaxFM = False Then 
application 

lbPostage . Caption = "Postage:" 
according to usage 

lbDptAcq. Caption = "Department:" 
lbPreselectionDpt . Caption = "Preselection:" 

If Conf ig.SettableMailClasses > 0 Then 
Classes are available 

MCTxts = Config.MailClassTexts 
Class texts form FM 

cmbMailClass . Clear 

ComboBox 

For i = LBound (MCTxts) To UBound (MCTxts) 
Class texts into the ComboBox 

cmbMailClass .Addltem MCTxts (i) , i 
Next i 

cmbMailClass. Listlndex = 0 
Mail Class ComboBox (choose 1st entry) 
Else 

Mailclasses available 

cmbMailClass .Enabled = False 
Class ComboBox 
End If 



'Create an new 
'Define the needed 

'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 

' Initialize 
' Initialize 
'If it is a Standard 
'Label the fields 



' If any Mail 
■Read Mail 
■Clear the 
'Fill Mail 

' Initialize 
■No 

'Disable Mail 



cmbFrankMode . Clear 
'Clear Mail Class ComboBox 

If Conf ig . FrankModeAvailNorm Then 'If 
Franking Mode Normal is available 

cmbFrankMode .Addltem "Normal" 
' Insert entry into ComboBox 

cmbFrankMode. I temData( cmbFrankMode. Newlndex) = 0 'Add 
item data to be able to identify the choosen entry 
End If 

If Conf ig.FrankModeAvailTape Then 'Same 
as above for Franking Mode Tape 

cmbFrankMode .Addltem "Tapes" 

cmbFrankMode . ItemData (cmbFrankMode . Newlndex) = 1 
End If 

If Conf ig.FrankModeAvailLetter Then 'Same 
as above for Franking Mode Letter 

cmbFrankMode .Addltem "Letters" 

cmbFrankMode . ItemData (cmbFrankMode .Newlndex) = 2 



End If 

If Config. FrankModeAvailltem Then 'Same 
as above for Franking Mode Item 

cmbFrankMode. Addltem "Items" 

cn±>FrankMode.ItemData (cmbFrankMode. Newlndex) = 3 
End If 

cmbFrankMode .List Index = 0 
'Initialize Mail Class ComboBox (choose 1st entry) 

cmbFrankMode. Enabled = cmbFrankMode . Lis tCount > 1 
■Enable Franking Mode ComboBox if there is more than one entry 

txtPreselectionDpt .MaxLength = 3 
'Limit the text length of the Preselection field to 3 (max = "999") 

Else ' (AutoTaxFM) 'Auto Tax application 

lbPostage. Caption = "Auto Tax:" 'Label the fields 

according to usage 

lbDptAcq. Caption = "Acquisition Tax:" 

lbPreselectionDpt .Caption = "Department:" 

txtPreselectionDpt .Enabled = True 'Enable 
the Department field 

txtPreselectionDpt .Width = 975 'Set 
width of Department field (more space necessary than for 
Preselection) 

txtPreselectionDpt .MaxLength = 0 'No text 

length limit 

txtDpt Acq. Enabled = Conf ig . AcquisitonTaxAvailable 'Enable 
Acquisition Tax field if application supports Acquisition Tax 

cmbMailClass . Enabled = False 'Disable 
Mail Class field (Auto Tax does not support Mail Classes) 

cmbFrankMode .Enabled = False 'Disable 
Franking Mode field (Auto Tax does not support Franking Modes) 
End If ' (AutoTaxFM) 

If Conf ig.MarginAvailable Then 'is Margin settable 

txtMarg in. Enabled = True 'Enable TextBox 

txtMargin.Text = "20" -Set a valid value 

Else 

txtMargin. Enabled = False 'Disable TextBox 

txtMargin.Text = "0" 
End If 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

Set Config = Nothing 'Disassociate Config 

object 

Exit Sub 
ErrorHandler : 

Unload Me 'Close frmFranking 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

ErrorHandler 'Handle errors (show 

appropriate message) 

Set Config = Nothing 'Disassociate Config 

object 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

If Len (fMainForm. Con. Connect ionString) <> 0 Then 'If 

connection exists 

cmdGoQuiet_Click . Set FM to 

QUIET state (not ready for Franking) 
End If 

End Sub 



Private Sub txtDptAcq_GotFocus () 
SelectAll txtDptAcq 



'Select the whole 



text in the TextBox 
End Sub 



Private Sub txtMargin_GotFocus () 

SelectAll txtMargin 'Select the whole 

text in the TextBox 
End Sub 

Private Sub txtPostage_GotFocus { ) 

SelectAll txtPostage 'Select the whole 

text in the TextBox 
End Sub 

Private Sub txtPreselectionDpt_GotPocus ( ) 

SelectAll txtPreselectionDpt 'Select the whole 

text in the TextBox 
End Sub 



VERSION 5. 00 

Begin VB.Form f rmlnterf ace 

BorderStyle = 3 'Fixed Dialog 

Caption = "Interface" 

ClientHeight = 1320 
ClientLeft = 2760 

ClientTop = 3 75 0 

ClientWidth = 2775 

Icon = "f rmlnterf ace .frx" : 0000 

LinkTopic = "Forml" 

MaxButton = o 'False 

MinButton = o 'False 

ScaleHeight = 1320 

ScaleWidth = 2775 

ShowInTaskbar = 0 'False 
StartUpPosition = l ' CenterOwner 
Begin VB . TextBox txtComPort 

Alignment = l 'Right Justify 

Height = 2 85 

Left = 1680 

MaxLength = 2 

Tab Index = o 

Text = " i " 

Top = 24 0 

Width = 375 

End 

Begin VB . CommandButton cmdCancel 
Cancel = -i 'True 

Caption = "Cancel" 

Height = 375 

Left = 120 

Tab Index = 2 

Top = 84 0 

Width = 1215 

End 

Begin VB . CommandButton cmdOK 
Caption = "OK" 

Default = -i 'True 

Height = 3 75 

Left = 1440 

Tablndex = l 

Top = 84 0 

Width = 1215 

End 

Begin VB. Label lbCOMPort 

Caption = "COM Port #:" 

Height = 2 55 

Left = 720 

Tablndex = 3 

Top = 300 

Width = 975 

End 

End 

Attribute VB_Name = "f rmlnterf ace" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmlnterf ace allows changing the COM Port that 
'connect to the FM. 



Option Explicit 

Private Sub cmdCancel_Click ( ) 

Unload Me 
End Sub 



Private Sub cmdOK_Click ( ) 

On Error GoTo ErrorHandler : 'Jump to ErrorHandler 

in case of an error 

nComPort = CInt {txtComPort . Text) 'Save COM Port # in 

Global variable 

Unload Me 'Close the 

f rmlnterf ace 

Exit Sub 
ErrorHandl er : 

ErrorHandler 'Handle errors (show 

appropriate message - here usually conversion error) 

txtComPort . SetFocus 
End Sub 

Private Sub Form_Load() 

txtComPort . Text = CStr (nComPort ) 'Write current COM 

Port # into TextBox 
End Sub 

Private Sub txtComPort_GotFocus ( ) 

SelectAll txtComPort 'Select the whole 

text in the TextBox 
End Sub 



VERSION 5.0 0 
Begin VB . Form f rmMailClassAdjust 



BorderStyle 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

LinkTopic 

MaxButton 

MinButton 

ScaleHeight 

ScaleWidth 

ShowInTaskbar 

StartUpPosition ■■ 



'Fixed Dialog 
"Mail Class adjust" 
1320 
2760 
3750 
3240 

"f rmMailClassAdjust . f rx" : 0000 

"Forml " 

0 'False 

0 'False 



1320 
3240 



' False 
' CenterOwner 



Begin VB . ComboBox cmbMailClass 



Height 
ItemData 
Left 
List 
Style 
Tablndex 
ToolTipText 
Top 
Width 



End 

Begin VB . CommandButton CancelButton 



315 

"f rmMailClassAdjust . f rx" : 0442 
1680 

" f rmMailClassAdjust . f rx" : 0455 

2 'Dropdown List 

0 

"Printed Mail Class" 

240 

1455 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



- 1 ' True 
"Close" 
375 
1920 



Begin VB . CommandButton OKButton 



Captii 
Default 
Height 
Left 

Tablndex 

Top 

Width 



" &Adjust" 

- 1 ' True 

375 

600 

1 

840 
1215 



Begin VB. Label lbPrintedMC 



'Right Justify 
0 'Transparent 
"Printed Mail Class 
255 
240 



Alignment 
BackStyle 
Caption 
Height 
Left 

Tablndex 
Top = 300 

Width = 1335 

End 

End 

Attribute VB_Name = "f rmMailClassAdjust" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmMailClassAdjust allows correcting the Mail Class assignment 
'the Mail Class Cylinder position. 

'In rare failure cases the assignment can get wrong. With this 
'function the assignment can be adjusted. 



Option Explicit 



Private Sub CancelButton_Click ( ) 

Unload Me 
End Sub 

'Executes Mail Class adjusting 

Private Sub OKButton_Click ( ) 

Dim Actions As New FMCTRLLib . PMActions 
FMConfig object 

Dim MCTxts 0 As String 
variables 

Dim nMCCylPos As Integer 

Dim nEmptyPos As Integer 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .ActiveConnection = fMainForm . Con 
connection to be used by Config 

If cmbMailClass .Listlndex < 0 Then 
chosen 

MsgBox "Please choose a Mail Class.", 

message 
Else 

Actions .MailClassAdjust cmbMailClass . Listlndex + 1 
'Adjust Mail Class on FM 
End If 



'Create an new 
'Define needed 

'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 

'If no Mail Class is 
vbExclamation 'Show 



Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler : 

Unload Me 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 
End Sub 



'Show default mouse 
'Disassociate Config 

'Show default mouse 
'Handle errors (show 
■Disassociate Config 



VERSION 5.0 0 

Object = "{831FDD16-0C5C-llD2-A9FC-0000F8754DAl}#2.0#0" 

"Mscomctl . ocx" 

Begin VB.Form frmMain 

BackColor 

BorderStyle 

Caption 

Client Height 

Client Left 

ClientTop 

ClientWidth 

Icon 

LinkTopic 
MaxButton 
ScaleHeight 
ScaleWidth 
StartUpPosition 



Begin MSComctlLib . Toolbar tbToolBar 



&H80000005& 
1 'Fixed Single 

"FM Control User Application Demo" 
4140 
1410 
1410 
7110 

"f rmMain. f rx" : 000 0 
" Forml " 
0 'False 
4140 
7110 

CenterScreen 



Align 
Height 
Left 

Tablndex 
Top 
Width 
_ExtentX 
_ExtentY 
ButtonWidth 
ButtonHeight 
Appearance 
Style 
ImageList 
_Version 



'Align Top 



7110 

12541 

635 

609 

582 



"imlToolbarlcons" 
393216 

BeginProperty Buttons { 66833FE8 - 8583 - 11D1-B16A-00C0F0283628 } 
NumButtons = 15 

BeginProperty Buttonl {66833FEA-8583-11D1-B16A-O0COFO283628} 
Key = "Interface" 

Object.ToolTipText = "Interface (Ctrl+I)" 

ImageKey = "Interface" 

EndProperty 

BeginProperty Button2 { 66833FEA-8583 - 11D1-B16A- 00C0F0283628 } 

Style = 3 

EndProperty 

BeginProperty Button3 { 66833FEA-8583 -11D1-B16A- 00C0F0283 628 } 

Key = "Connect" 

Object.ToolTipText = "Connect (F3)" 

ImageKey = "Connect" 

EndProperty 

BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
Ke Y = "Disconnect" 

Object.ToolTipText = "Disconnect (F4) " 

ImageKey = "Disconnect" 

EndProperty 

BeginProperty Button5 { 66833FEA-8583 - 11D1-B16A- 00C0F0283628 } 

Style ■= 3 

EndProperty 

BeginProperty Button6 { 66833FEA- 8583 - 11D1-B16A-O0C0F0283628 } 
Key = "Properties" 

Object.ToolTipText = "Properties (Ctrl+P) » 

ImageKey = "Properties" 

EndProperty 

BeginProperty Button7 { 66833FEA-8583 - 11D1-B16A-00C0F0283628 } 
Key = "Settings" 

Object.ToolTipText = "Settings (Ctrl+S) " 

ImageKey = "Settings" 

EndProperty 

BeginProperty Button8 { 66833FEA-8583 - 11D1-B16A- 0 0COFO2 8362 8 } 



Style = 3 

EndProperty 

BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
Key = "Franking" 

Object .ToolTipText = "Franking (F5) " 

ImageKey = "Franking" 

EndProperty 

BeginProperty ButtonlO {66833FEA-8583-11D1-B16A- 
00C0F0283628} 

Key = "Counters" 

Object .ToolTipText = "Counters (F6) " 

ImageKey = "Counters" 

EndProperty 

BeginProperty Buttonll { 66833FEA-8583-11D1-B16A- 
00C0F0283628} 

Key = "DateTime" 

Object .ToolTipText = "Date && Time (F7) " 

ImageKey = "DateTime" 

EndProperty 

BeginProperty Buttonl2 { 66833FEA-8583-11D1-B16A- 
00C0F0283628} 

Key = "MailClass" 

Object. ToolTipText = "Mail Class adjust (F8)" 

ImageKey = "MailClass" 

EndProperty 

BeginProperty Buttonl3 {66833FEA-8583-11D1-B16A- 
O0COF0283628} 

Key = "TextToDi splay" 

Object. ToolTipText = "Text to display (F9)" 

ImageKey = "TextToDisplay " 

EndProperty 

BeginProperty Buttonl4 { 66833FEA-8583 - 11D1-B16A- 
O0COF0283628} 

Style = 3 

EndProperty 

BeginProperty Buttonl5 { 66833FEA-8583 - 11D1-B16A- 
00C0F0283628} 

Key = "About " 

Object .ToolTipText = "About" 

ImageKey = "Help" 

EndProperty 
EndProperty 

Mouselcon = "f rmMain . f rx" : 0442 

End 

Begin MS Come tl Lib . StatusBar sbStatusBar 
Align = 2 'Align Bottom 

Height = 255 

Left = o 

Tablndex = o 

Top = 3885 

Width = 7110 

_ExtentX = 12 541 

_ExtentY = 45 0 

Style = l 

SimpleText = "Ready" 

_Version = 3 93 216 

BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
NumPanels = 3 

BeginProperty Panell {8E3867AB-8586-11D1-B16A-00C0FO283628} 

AutoSize = i 

Object. Width = 7355 

Text = "Status" 

TextSave = "Status" 

EndProperty 

BeginProperty Panel2 { 8E3867AB-8586-11D1-B16A-00C0F0283628} 
Style = 6 



AutoS ize = 2 

TextSave = "08.09.2000" 

EndProperty 

BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628 } 
Style = 5 

AutoSize = 2 

TextSave = "16:29" 

EndProperty 
EndProperty 

End 

Begin MSComctlLib . ImageList imlToolbarlcons 
Left = 6480 

Top = 480 

_ExtentX = 1005 

_ExtentY = 1005 

BackColor = 16777215 

ImageWidth = 16 

ImageHeight = 16 

MaskColor = 12632256 

_Version = 393216 

BeginProperty Images {2C247F25-8591-11D1-B16A-0OC0F0283628} 
NumListlmages = n 

BeginProperty Listlmagel {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . f rx" : 0B94 

Key = "Help" 

EndProperty 

BeginProperty Listlmage2 {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 0CF2 

Key = "Counters" 

EndProperty 

BeginProperty Listlmage3 {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = "f rmMain . frx" : 100C 

Key = "MailClass" 

EndProperty 

BeginProperty Listlmage4 {2C247F27-8591-11D1-B16A- 
OOCOF0283628} 

Picture = "f rmMain. frx" : 14 5E 

Key = "Franking" 

EndProperty 

BeginProperty Listlmage5 {2C247F27-8591-11D1-B16A- 
O0COF0283628} 

Picture = "f rmMain. frx" : 18B0 

Key = "DateTime" 

EndProperty 

BeginProperty Listlmage6 {2C247F27-8591-11D1-B16A- 
OOCOF0283628} 

Picture = " f rmMain . frx" : 1D0 2 

Ke Y = "Properties" 

EndProperty 

BeginProperty Listlmage7 {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 2154 

Key = "TextToDi splay" 

EndProperty 

BeginProperty Listlmage8 {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 2 5A6 

Key = "Connect" 

EndProperty 

BeginProperty Listlmage9 {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 2704 

Key = "Disc- 



EndProperty 

BeginProperty ListlmagelO {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

■Picture = " f rmMain . f rx" : 2 862 

Key = "Interface" 

EndProperty 

BeginProperty Listlmagell {2C247F27-8591-11D1-B16A- 
OOCOP0283628} 

Picture = "f rmMain. frx" : 2974 

Key = "Settings" 

EndProperty 
EndProperty 

End 

Begin VB . PictureBox picAscomLogo 



Appearance 
BackColor 
BorderStyle 
FillColor 
ForeColor 
Height 
Left 
Picture 
ScaleHeight 
ScaleWidth 
Tablndex 
Top 
width 

End 

Begin VB. Label IbSerialNr 



Flat 
&H80000005& 
0 ' None 
&H00FFFFFF& 
&H80000005& 
592 
2520 

"f rmMain. frx" 
585 
2010 
2 

3300 
2010 



BackColor 
BackStyle 
Caption 
BeginProperty Font 

Name 

Size 

Charset 

We ight 

Underline 

Italic 

Strikethrough 
EndProperty 
Height 
Left 

Tablndex 

Top 

Width 



&H80000005& 

3 ' Transparent 

'654321" 

"MS Sans Serif" 



' False 
' False 
'False 



1680 
1455 



Begin VB. Label lbSerialNrLabel 



BackColor 
BackStyle 
Caption 

BeginProperty Font 
Name 
Size 
Charset 
Weight 
Underline 
Italic 

Strikethrough 
EndProperty 
Height 
Left 

Tablndex 

Top 

Width 



&H80000005& 

0 ' Transparent 

"Serial Nr. : " 

"MS Sans Serif" 



' False 
' False 
' False 



375 
2160 



1680 
1215 



Begin VB. Label lbFMType 
BackColor 
BackStyle 
Caption 

BeginProperty Font 
Name 
Size 
Charset 
Weight = 70 

Underline = 0 

Italic = 0 

Strikethrough = 0 

EndProperty 

Height = 375 

Left = 3480 

Tab Index = 4 

Top = 1200 

Width = 1455 

End 

Begin VB. Label lbFMTypeLabel 
BackColor 
BackStyle 
Caption 

BeginProperty Font 
Name 
Size 

Charset = 0 

Weight = 700 

Underline 
Italic 

Strikethrough 
EndProperty 



&H80000005& 
0 ' Transparent 
"F3XXPLUS " 



12 



'False 
' False 
'False 



&H80000005& 
0 1 Transparent 
"FM Type : " 

"MS Sans Serif 



'False 
' False 
' False 



Height 
Left 

Tablndex 

Top 

Width 



375 
2160 



1200 
1215 



End 

Begin VB.Menu mnuSystem 

Caption = "^System" 

Begin VB.Menu mnuSystemlnterf ace 

Caption = "interface..." 

Shortcut = A i 

End 

Begin VB.Menu mnuSystemBarO 
Caption = »-» 

End 

Begin VB.Menu mnuFileExit 

Caption = "E&xit" 

End 

End 

Begin VB.Menu mnuConnection 

Caption = " &Connection" 

Begin VB.Menu mnuConnectionConnect 

Caption = "&Connect" 

Shortcut = {F3} 

End 

Begin VB.Menu mnuConnectionDisconnect 
Caption = "&Disconnect" 

Shortcut = {F4} 

End 

End 

Begin VB.Menu mnuConfig 

Caption = "C&onf iguration" 

Begin VB.Menu mnuConf igProperties 

Caption = "^Properties . . . 



Shortcut = 

End 

Begin VB.Menu mnuConf igSet tings 

Caption = » &Settings . . . " 

Shortcut = 

End 

End 

Begin VB.Menu mnuActions 

Caption = "&Actions" 

Begin VB.Menu mnuActionsFranking 

Caption = "&Franking. . . " 

Shortcut = {F5} 

End 

Begin VB.Menu mnuActionsCounters 

Caption = " &Counters . . . " 

Shortcut = {F6} 

End 

Begin VB.Menu mnuActionsBarO 
Caption = "-" 

End 

Begin VB.Menu mnuActionsDateTime 

Caption = "&Date && Time..." 

Shortcut = {F7} 

End 

Begin VB.Menu mnuActionsMailClassAdjust 

Caption = "&Mail Class adjust..." 

Shortcut = {F8} 

End 

Begin VB.Menu mnuActionsTextToDisp 

Caption = "&Text to display..." 

Shortcut = {F9} 

End 

End 

Begin VB.Menu mnuView 

Caption = "&View" 

Begin VB.Menu mnuViewToolbar 

Caption = "&Toolbar" 

Checked = -1 'True 

End 

Begin VB.Menu mnuViewStatusBar 

Caption = "Status &Bar" 

Checked = -i 'True 

End 

End 

Begin VB.Menu mnuHelp 

Caption = "&Help" 

Begin VB.Menu mnuHelpAbout 

Caption = "SAbout. . . " 

End 

End 

End 

Attribute VB_Name = "frmMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

'frmMain is the main window of this application. 

■It contains a menu and a toolbar that allow to establish connection, 
'disconnect and open the sub forms. 

'frmMain contains the Connection object that is used to comunicate 
with the FM. 

'Therefore also all events raised by the FM Control Library 
(FMCTRLLib) are 
'processed in this form. 



Option Explicit 



Public WithEvents Con As FMCTRLLib . Connection 'Define Connection 
object variable 

Attribute Con. VB_VarHelpID = -1 

Public Enum FORMSTATES 'Enumerator for the different states of 

the frmMain 

f sConnected 

f sDisconnected 
End Enum 

Dim nFrankingCounter As Long 'Counter to number the Frankings 

Private bDieCoverOpen As Boolean 'Flag indicating whether the Die 
Cover is open 

'Event, raised whenever the Die Cover is closed 

Private Sub Con_OnDieCoverClosed ( ) 
bDieCoverOpen = False 

sbStatusBar . SimpleText = "Connected" 
statusbar of frmMain 

frmFranking . sbStatusBar . SimpleText = "Ready" 
statusbar of frmFranking (does not need to be open) 
End Sub 

'Event, raised whenever the Die Cover is closed 

Private Sub ConjDnDieCoverOpen ( ) 
bDieCoverOpen = True 

sbStatusBar. SimpleText = "Die Cover open" 
statusbar of frmMain 

frmFranking. sbStatusBar. SimpleText = "Die Cover open" 
statusbar of frmFranking (does not need to be open) 
End Sub 

'Event, raised whenever an unexpected disconnection is detected 

Private Sub Con_OnDisconnect ( ) 
Dim i As Integer 

SetFormState (f sDisconnected) 
on frmMain for state Disconnected 

For i = Forms. Count - 1 To 1 Step -1 
Unload Forms (i) 

Next 
End Sub 

'Event, raised whenever FM goes to QUIET state without having 
received an explicit command to do so. 

■This happens e.g. when the user timeout has run down. 

Private Sub Con_OnQuiet (ByVal StatusCode As FMCTRLLib 

If Not bDieCoverOpen Then 
overwrite StatusBar if Die Cover is open 

frmFranking. sbStatusBar . SimpleText = "Quiet" 
statusbar of frmFranking (does not need to be open) 

End If 

If Not (StatusCode = R_OK) Then 
ProcessRetVal (StatusCode) 
message for with the message from the high speed base 

End If 
End Sub 

'Event, raised whenever a Franking is released 
Private Sub Con_OnFranking (ByVal Postage As Currency, ByVal JobRest 



'Reset flag 
'Write to 

'Write to 



'Set flag 
'Write to 

'Write to 



'Set frmMain all controls 
■Close all sub forms 



. RETVALS ) 

'Do not 



As Integer, ByVal StatusCode As FMCTRLLib . RETVALS) 

Dim liltem As Listltem 'Define the needed 

valiables 

Dim strJobRest As String 

nFrankingCounter = nFrankingCounter + 1 
1 Increment the Franking counter 

Set liltem = f rmFranking . IvFrankings . Listltems .Add (1) 
'Create a new list item on 1st position in the Frankings list on 
f rmFranking 

'Column 0 is not used (1st column must be left alligned, but # should 
be right 

'alligned, so column 0 has width 0) 

liltem. Subltems (1) = CStr (nFrankingCounter ) 
'Write # to list item 

liltem. Subltems (2) = Format (Postage , CreateCurrencyFormatMask) 
'Write formated Postage to list item 

If JobRest = -1 Then 'If no Preselection 

(-1) 

strJobRest = " (none) " 

Else 

strJobRest = CStr (JobRest) 
End If 

liltem. Subltems (3) = strJobRest 'Write 
remaining number of items to list item 

liltem. Subltems (4) = RetValToShortText (StatusCode ) 'Write 
short description of state to list item 

ProcessRetVal (StatusCode) 'Process StatusCode 

(show message if necessary) 
End Sub 

'Event, raised when no more Tapes are available in Franking Mode 
FRK_TAPE 

Private Sub Con_OnNoMore Tapes ( ) 

Dim Actions As New FMCTRLLib . FMAct ions 'Create an new 

FMActions object 

Dim msg As String 'Define needed 

variables 

Dim MsgBoxStyle As VbMsgBoxStyle 
On Error GoTo ErrorHandler : 'Jump to ErrorHandler 

in case of an error 

Actions .ActiveConnection = f MainForm. Con 'Define the 
connection to be used by Actions 

msg = "No more Tapes. Please refill." 'Prepare MsgBox text 

MsgBoxStyle = vbExclamation + vbRetryCancel 'MsgBox has Retry and 
Cancel button 

If vbRetry = MsgBox (msg, MsgBoxStyle) Then 'Show message if 
Retry button is pressed 

Screen .MousePointer = vbHourglass 'Show hourglass mouse 

pointer 

Actions .TapesPresent 'Tell FM that tapes 

are ready again 

Else 'Cancel button 

pressed 

Screen. MousePointer = vbHourglass 'Show hourglass mouse 

pointer 

Actions .GoQuiet 'Set FM to Quiet 

state (not ready for Franking) 

f rmFranking. sbStatusBar. SimpleText = "Quiet" 'Write to 

statusbar of frmFranking (does not need to be open) 



End If 



Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

Set Actions = Nothing 'Disassociate Actions 

object 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

ErrorHandler 'Handle errors (show 

appropriate message) 

Set Actions = Nothing 'Disassociate Actions 

object 
End Sub 



'Event, raised whenever a rotor error occurs 



Private Sub Con_OnRotorError (ByVal StatusCode As FMCTRLLib . RETVALS) 
Dim msg As String 

sbStatusBar. SimpleText = "Connected" 'Write to 

statusbar of frmMain 

frmFranking. sbStatusBar. SimpleText = "Quiet" 'Write to 

statusbar of frmFranking (does not need to be open) 

msg = "Rotor error!" + Chr(13) 'Prepare message 

msg = msg + RetValToText (StatusCode) 

MsgBox msg, vbCritical 'Display message 

End Sub 



Private Sub Form_Load ( ) 

' frmMain is opende centred on the screen 

Me. Left = GetSetting (App. Title, "Settings" 

Me. Top = GetSetting (App. Title, "Settings", 

Me. Width = 72 0 0 
frmMain 

Me. Height = 48 00 
frmMain 



"MainLeft", 1000) 
"MainTop", 100 0) 
'Define width of 

'Define hight of 



Set Con = New FMCTRLLib . Connection 'Create Connection 

object 

SetFormState (f sDisconnected) 'Set frmMain all 

controls on frmMain for state Disconnected 

sbStatusBar . SimpleText = "Ready" 'Write to statusbar 

of frmMain 

nComPort = 1 'Initialize COM Port 

number 
End Sub 



'Called before frmMain is closed 



Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As 
Integer) 

If Con.ConnectionString <> " " Then 'if connection exists 

Cancel = True >Do not close frmMain 

'Show message 

MsgBox "Can not exit while connection exists." + Chr(13) + 
"Please disconnect.", vbCritical 

End If 
End Sub 



Private Sub FormJJnload (Cancel As Integer) 
Dim i As Integer 



For i = Forms. Count - 1 To 1 Step -1 



'Close all sub forms 



'Save window positi 



Unload Forms (i) 

Next 

If Me . WindowState <> vbMinimized Then 
in registry 

SaveSetting App. Title, "Settings", "MainLeft", Me. Left 
SaveSetting App. Title, "Settings", "MainTop", Me. Top 
End If 

Set Con = Nothing 'Disassociate 
Connection object 
End Sub 



'Information is filled into the fields and window is opended. 



Private Sub mnuActionsCounters_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 
FMActions object 

Dim strFormatMask As String 
variables 

Dim cAscending As Currency- 
Dim cDescending As Currency 

Dim nl terns As Long 

Dim bOn As Boolean 

Dim cValue As Currency 
On Error GoTo ErrorHandler : 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions . ActiveConnection = f MainForm. Con 
connection to be used by Actions 

strFormatMask = CreateCurrencyFormatMask 
for displaying money values 

Actions .GetCounterValues cAscending, cDescending, nltems 'Re 
postal counters form FM 

With frmCounters 

.IbAscending. Caption = Format (cAscending, strFormatMask) 
'Display postal counters 

. lbDescending. Caption = Format (cDescending, strFormatMask) 
. lbltems .Caption = Format (nltems , »##,##0") 



' Create an new 
'Define needed 



' Jump to ErrorHandler 
' Show hourglass mouse 
'Define the 

' Create format mask 



Actions .BatchCounterRead bOn, nltems, cValue 
Counter from FM 



'Read Batch 



. lbBatchActive = BoolToYesNo (bOn) 
Batch Counter values 

. IbBatchValue = Format (cValue , strFormatMask) 
. lbBatchltems = Format (nltems , "##,##0") 
End With 



Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
obj ect 

f rmCounters . Show vbModal, Me 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 



'Show default mouse 
'Disassociate Actions 



' Show default mouse 
'Handle errors (show 
'Disassociate Actions 



End Sub 



'Read and display the current FM system time and open window 

Private Sub mnuActionsDateTime_Click ( ) 

Dim Actions As New PMCTRLLib . FMActions 
FMActions object 
On Error GoTo ErrorHandler : 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions . ActiveConnection = f MainForm. Con 
connection to be used by Actions 



' Create an new 
'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 



f rmDateTime . lbDateTime . Captio: 
Date and time from FM 



Acti- 



.GetTimeDate 



' read 



Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
obj ect 

f rmDateTime . Show vbModal, Me 

Exit Sub 
ErrorHandler: 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
obj ect 
End Sub 



'Show default mouse 
'Disassociate Actions 



'Show default mouse 
'Handle errors (show 
'Disassociate Actions 



'Prepare frmFranking for the application used by the connected FM. 
'Some TextBoxes are used for different data entry depending on the 
'application (Standard / Auto Tax) 

Private Sub mnuActionsFranking_Click { ) 

Dim Config As New FMCTRLLib . FMConf ig 
FMConfig object 

Dim MCTxtsO As String 
variables 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Config. ActiveConnection = fMainForm. Con 
connection to be used by Config 

With frmFranking 

. txtPostage .Text = "0" 
Postage /AutoTax field 

. txtDptAcq . Text = " 0 " 
Department /AcquisitionTax field 

If Config. AutoTaxFM = False Then 
Standard application 

. lbPostage . Caption = "Postage:" 
according to usage 

.IbDptAcq. Caption = "Department:" 
. lbPreselectionDpt . Caption = "Preselection 

If Config. SettableMailClasses > 0 Then 
Mail Classes are available 

MCTxts = Config. MailClassTexts 



'Create an new 
'Define the needed 

'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 

' Initialize 
' Initialize 
' If it is a 
'Label the fields 



' I f any 
'Read 



Mail Class texts form FM 

. cmbMailClass . Clear 

the ComboBox 

For i = LBound (MCTxts) To UBound (MCTxts) 
Mail Class texts into the ComboBox 

. cmbMailClass .Addltem MCTxts (i) , i 
Next i 

. cmbMailClass .Listlndex = 0 
'Initialize Mail Class ComboBox (choose 1st entry) 
Else 

Mailclasses available 

.cmbMailClass. Enabled = False 
Mail Class ComboBox 
End If 

. cmbFrankMode . Clear 
'Clear Mail Class ComboBox 

If Conf ig.FrankModeAvailNorm Then 
■If Franking Mode Normal is available 

. cmbFrankMode .Addltem "Normal" 
1 Insert entry into ComboBox 

. cmbFrankMode . ItemData ( . cmbFrankMode .Newlndex) = 0 
'Add item data to be able to identify the choosen entry 
End If 

If Config.FrankModeAvailTape Then 
' Same as above for Franking Mode Tape 

. cmbFrankMode .Addltem "Tapes" 

. cmbFrankMode . ItemData ( . cmbFrankMode . Newlndex) = 1 
End If 

If Conf ig.FrankModeAvailLetter Then 
' Same as above for Franking Mode Letter 

. cmbFrankMode .Addltem "Letters" 

. cmbFrankMode . ItemData ( . cmbFrankMode . Newlndex) = 2 
End If 

If Conf ig.FrankModeAvai II tern Then 
'Same as above for Franking Mode Item 

•.cmbFrankMode. Addltem "Items" 

. cmbFrankMode . ItemData ( . cmbFrankMode . Newlndex) = 3 
End If 

.cmbFrankMode. Li st Index = 0 
'Initialize Mail Class ComboBox (choose 1st entry) 

. cmbFrankMode .Enabled = . cmbFrankMode . ListCount > 1 
'Enable Franking Mode ComboBox if there is more than one entry 

. txtPreselectionDpt .MaxLength = 3 
■Limit the text length of the Preselection field to 3 (max = "999") 

Else ' (AutoTaxFM) 'Auto Tax 

application 

. lbPostage. Caption = "Auto Tax:" 'Label the 

fields according to usage 

.IbDptAcq. Caption = "Acquisition Tax:" 

. lbPreselectionDpt . Caption = "Department:" 

.txtPreselectionDpt. Enabled = True 
'Enable the Department field 

. txtPreselectionDpt .Width = 975 'Set 
width of Department field (more space necessary than for 
Preselection) 

. txtPreselectionDpt .MaxLength =0 'No 
text length limit 

. txtDptAcq. Enabled = Conf ig.AcquisitonTaxAvailable 
'Enable Acquisition Tax field if application supports Acquisition Tax 

.cmbMailClass .Enabled = False 
'Disable Mail Class field (Auto Tax does not support Mail Classes) 

.cmbFrankMode. Enabled = False 
'Disable Franking Mode field (Auto Tax does not support Franking 
Modes) 



'Clear 
'Fill 

'No 

' Disable 



End If ' (AutoTaxFM) 



If Conf ig.MarginAvailable Then 

settable 

. txtMargin. Enabled = True 
. txtMargin. Text = "20" 

value 

Else 

.txtMargin. Enabled = False 
. txtMargin. Text = "0" 
End If 
End With 



'Enable TextBox 
'Set a valid 



'Disable TextBox 



Screen. MousePointer = vbDefault 
pointer 

Set Config = Nothing 
obj ect 

frmFranking.Show vbModal, Me 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
object 
End Sub 



' Show default mouse 
'Disassociate Config 

' Show window 

'Show default mouse 
'Handle errors (show 
'Disassociate Config 



'Prepare GUI for MailClassAdjust depending on the FM configuration 
and open window. 

Private Sub mnuActionsMailClassAdjust_Click ( ) 

Dim Config As New FMCTRLLib . FMConf ig 
FMConfig object 

Dim MCTxts () As String 
variables 

Dim nMCCylPos As Integer 

Dim nEmptyPos As Integer 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Conf ig.ActiveConnection = fMainForm. Con 
connection to be used by Config 

If Conf ig.SettableMailClasses > 0 Then 'If Mail Classes are 

available 

nMCCylPos = Conf ig . MailClassCylinderPositions 'Get number 
of positions on Mail Class cylinder from FM 

MCTxts = Config.MailClassTexts 'Get Mail Class texts 

from FM 



' Create an new 
'Define needed 

'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 



frmMailClassAdjust.cmbMailClass. Clear 'Clear ComboBox 

For i = LBound (MCTxts) To UBound (MCTxts) 'Fill Mail Class 

texts into ComboBox 

frmMailClassAdjust . cmbMailClass .Addltem MCTxts (i) , i 
Next i 



nEmptyPos = nMCCylPos - (UBound (MCTxts) - LBound (MCTxts) ) - 1 
'Calculate the number of positions on Mail 



'Class cylinder that are not assigned to a 



•Mail Class text 

For i = 1 To nEmptyPos 
ComboBox with this number of " (no text) " entries 

frmMailClassAdjust.cmbMailClass.Addltem "(no text)" 
make all Mail Class cylinder positions available 

Next i 



object 



Screen .MousePointer = vbDefault 
Set Config = Nothing 



f rmMailClassAdjust . Show vbModal , Me 

Else 
available 

Screen. MousePointer = vbDefault 

pointer 

Set Config = Nothing 

obj ect 

MsgBox "Mail Classes not available 

message 

End If 

Exit Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
obj ect 
End Sub 

Private Sub mnuActionsTextToDisp_Click () 

f rmTextToDi splay . Show vbModal, Me 
End Sub 

Private Sub mnuConnectionConnect_Click ( ) 
Dim strConnectionString As String 

On Error GoTo ErrorHandler: 

in case of an error 

Screen. MousePointer = vbHourglass 

pointer 



strConnectionString = "COMPORT=" + CStr (nComPort ) 
PROTOCOL=MLPV6 " 'Compose ConnectionString 



'Show default i 
'Disassociate Config 

'Open the window 
'No Mail Classes 

'Show default mouse 

'Disassociate Config 

vbCritical 'Show 



'Show default mouse 
'Handle errors (show 
'Disassociate Config 



'Jump to ErrorHandler 
■Show hourglass mouse 



Con . Conne c t ( s t r Conne ctionString) 

nFrankingCounter = 0 
Counter (used to number the Frankings) 

SetFormState (f sConnected) 
controls on frmMain for state Connected 

Screen . MousePointer = vbDefault 
pointer 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

SetFormState (f sDisconnected) 
controls on frmMain for state Disconnected 
End Sub 



'Connect to FM 
' Initialize Franking 
'Set frmMain all 
'Show default mouse 

' Show default mouse 
'Handle errors (show 
'Set frmMain all 



Private Sub mnuConnectionDisconnect_Click ( ) 



On Error GoTo ErrorHandler: 'Jump to ErrorHandler 

in case of an error 

Screen. MousePointer = vbHourglass 'Show hourglass mouse 

pointer 

Con. Disconnect 'Disconnect from FM 

SetFormState (f sDisconnected) 'Set frmMain all 

controls on frmMain for state Disconnected 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

ErrorHandler 'Handle errors {show 

appropriate message) does usually not happen here 
End Sub 

'Executes appropriate mnuXxx_Click routine depending on the clicked 
button 

Private Sub tbToolBar_ButtonClick (ByVal Button As MSComctlLib . Button) 
On Error Resume Next 

Select Case Button. Key 
Case "Interface" 

mnuSystemlnterf ace_Click 
Case "Connect" 

mnuConnectionConnect_Click 
Case "Disconnect" 

mnuConnectionDisconnect_Click 
Case "Properties" 

mnuConf igProperties_Click 
Case "Settings" 

mnuConf igSettings_Click 
Case "Franking" 

mnuActionsFranking_Click 
Case "Counters" 

mnuActionsCounters_Click 
Case "DateTime" 

mnuAc t i ons Da t e T ime_C 1 i ck 
Case "MailClass" 

mnuActionsMailClassAdjust_Click 
Case "TextToDisplay" 

mnuActionsTextToDi sp_Cl ick 
Case "About " 

mnuHelpAbout_Click 
Case Else 'Unknown button 

MsgBox "Add ToolBar_ButtonClick code. " + Button. Key 
End Select 
End Sub 

Private Sub mnuConf igProperties_Click ( ) 

LoadfrmConfig 0 'Display tab 

"Properties " 
End Sub 

Private Sub mnuConf igSettings_Click ( ) 

LoadfrmConfig 1 'Display tab 

"Settings" 
End Sub 

'Information is filled into the fields and window is opended 



Private Sub Loadf rmConf ig (nTab As Integer) 
Dim Config As New FMCTRLLib . FMConf ig 



' Create an new 



FMConfig object 
On Error GoTo ErrorHandler : 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Conf ig . ActiveConnection = f MainForm. Con 
connection to be used by Config 

With frmConfig 

'General information 

. lbFMType. Caption = FMTypeToString (Config . FMType) 
and display FM Type 

. lbSerialNr. Caption = Conf ig . SerialNr 
and display Serial Number 

. lbFMSoftware . Caption = Conf ig . FMSWVer 
and display FM Software version 

If Conf ig.AutoTaxFM Then 
a special Auto Tax app. (Japan) 

. IbApplication. Caption = "Auto Tax" 
the description of the appliction 

If Conf ig.AcquisitonTaxAvailable Then 
Auto Tax app. support Acquisition Tax? 

.IbApplication. Caption = . IbApplication . Caption 
with Acquisition Tax" 
End If 

Else 
Tax application 

.IbApplication. Caption = "Standard 
End If 



'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 



' Read 
' Read 
' Read 
If it is 
' Compose 
Does the 



Non Auto 



1 Print image 

. lbNrDecades . Caption = CStr (Conf ig . DecadeNumber) 
and display Number of Decade wheels 

. IbDecPos. Caption = CStr (Conf ig . DecPointPosition) 
and display position of the decimal point 

. lbFixZeros. Caption = CStr (Conf ig.FixedZeros) 
and display number of fixed zeros 

If Conf ig.LastDecadeType = LD0 9 Then 
display type of the last Decade wheel 

. lbLastDecade . Caption = "0..9" 

all 0. .9 



' Read 
'Read 
1 Read 
' Read and 
'Can be 

' Can 



Else 

. lbLastDecade . Caption = "0/5" 
only be 0 or 5 
End If 

.lbPrint Image. Caption = CreatePrintlmage • Compc 

the print image (e.g. 99.99 or 9999900) 

' Information about the Base 

. IbBaseModel. Caption = BaseModelToString (Conf ig . BaseModel ) 
'Read and display the Base model 

. IbBaseSoftware . Caption = Conf ig . BaseSWVer 
'Read and display Base software version 

' Features 

.IbAutoDate = BoolToYesNo (Conf ig . AutoDate) 
'Read and display whether FM has automatic date 

. lbMargin. Caption = BoolToYesNo {Conf ig .MarginAvailable) 
■Read and display whether margin is changable 

. lbNrMailClass .Caption = CStr (Conf ig . SettableMailClasses) 
■Read and display the number of available Mail Classes 

' Franking Modes 

.lbFrankModes = FrankModesToString 'Compose a 

String containing a list of the available Franking Modes 
End With 



Screen . Mouse Pointer = vbDefault 
pointer 

Set Config = Nothing 
obj ect 

frmConf ig. tabConf ig.Tab = nTab 
appropriate tab 

frmConfig.Show vbModal , Me 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
obj ect 
End Sub 

Private Sub mnuHelpAbout_Click ( ) 

f rmAbout . Show vbModal , Me 
End Sub 



' Show default mouse 
'Disassociate Config 

'Display the 
'Show the window 

'Show default mouse 
'Handle errors (show 
'Disassociate Config 



Private Sub mnuSystemlnterf ace_Click ( ) 

frmlnterf ace . Show vbModal, Me 
End Sub 

Private Sub mnuViewStatusBar_Click ( ) 

mnuViewStatusBar .Checked = Not mnuViewStatusBar . Checked 

sbStatusBar. Visible = mnuViewStatusBar . Checked 
End Sub 

Private Sub mnuViewToolbar_Click () 

mnuViewToolbar . Checked = Not mnuViewToolbar . Checked 

tbToolBar. Visible = mnuViewToolbar . Checked 
End Sub 

Private Sub mnuFileExit_Cl ick ( ) 

Unload Me 
End Sub 

•Makes all the GUI elements appear in the appropriate way depending 
on the FromState 

Sub SetFormState (State As FORMSTATES) 

Dim Config As New FMCTRLLib . FMConf ig 'Create an new 

FMConfig object 

On Error GoTo ErrorHandler: 'Jump to ErrorHandler 

in case of an error 

Select Case State 
Case fsConnected 

Config. ActiveConnection = Con 'Define the 

connection to be used by Config 

lbFMType. Caption = FMTypeToString (Config . FMType) 'Read and 

display FM Type 

IbSerialNr .Caption = Config . SerialNr 'Read and display 
Serial number 

Set Config = Nothing 'Disassociate Config 

object 

sbStatusBar. SimpleText = "Connected" 'Write to status bar 



mnuSystemlnterf ace . Enabled = False 
the GUI elements 



'Enable or disable 



mnuFileExit. Enabled = True 
mnuConnectionConnect. Enabled = False 
mnuConnectionDisconnect .Enabled = True 
mnuConf igProperties . Enabled = True 
mnuConf igSettings .Enabled = True 
mnuActionsFranking. Enabled = True 
rmuAct ions Counters . Enabled = True 
mnuActionsDateTime. Enabled = True 
mnuActionsMailClassAdjust .Enabled = True 
mnuActionsTextToDisp. Enabled = True 
mnuViewToolbar. Enabled = True 
mnuViewStatusBar .Enabled = True 
mnuHelpAbout. Enabled = True 
With tbToolBar 

.Buttons ("Interface") .Enabled = False 

.Buttons ("Connect" ) .Enabled = False 

.Buttons ("Disconnect") .Enabled = True 

.Buttons ("Properties") .Enabled = True 

.Buttons ("Settings") .Enabled = True 

.Buttons ("Franking") .Enabled = True 

.Buttons ( "Counters" ) .Enabled = True 

.Buttons ("DateTime") .Enabled = True 

.Buttons ("MailClass") .Enabled = True 

.Buttons ("TextToDisplay") .Enabled = True 

. Buttons ( "About " ) . Enabled = True 
End With 
Case f sDisconnected 

lbFMType. Caption = "(none)" 
lbSerialNr .Caption = "(none)" 

sbStatusBar. SimpleText = "Disconnected" 'Write to status bar 

mnuSystemlnterf ace .Enabled = True 'Enable or disable 

the GUI elements 

mnuFileExit .Enabled = True 
mnuConne c t i onConne c t . Enab led = True 
mnuConnectionDisconnect . Enabled = False 
mnuConf igProperties .Enabled = False 
mnuConf igSettings. Enabled = False 
mnuActionsFranking. Enabled = False 
mnuAct ions Counters .Enabled = False 
mnuActionsDateTime. Enabled = False 
mnuActionsMailClassAdjust .Enabled = False 
mnuActionsTextToDisp. Enabled = False 
mnuViewToolbar. Enabled = True 
mnuViewStatusBar. Enabled = True 
mnuHelpAbout .Enabled = True 
With tbToolBar 

.Buttons ("Interface") .Enabled = True 

.Buttons ("Connect") .Enabled = True 

.Buttons ("Disconnect") .Enabled = False 

.Buttons ("Properties" ) .Enabled = False 

.Buttons ("Settings") .Enabled = False 

.Buttons ("Franking") .Enabled = False 

.Buttons ("Counters") .Enabled = False 

.Buttons ("DateTime" ) .Enabled = False 

.Buttons ("MailClass") .Enabled = False 

.Buttons ("TextToDisplay") .Enabled = False 

.Buttons ("About") .Enabled = True 
End With 
End Select 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 



'Show default mouse 
'Handle errors (show 



appropriate message) 

Set Config = Nothing 
object 
End Sub 



Disassociate Config 



VERSION 5.0 0 

Begin VB.Form frmTextToDi splay 



BorderStyle 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

LinkTopic 

MaxButton 

MinButton 

ScaleHeight 

ScaleWidth 

ShowInTaskbar 

StartUpPosition 



Begin VB.TextBox txtStartPos 



'Fixed Dialog 
"Text to display" 
1440 
2760 
3750 
5355 

" frmTextToDi spl ay . frx" : 0 000 

" Forml " 

0 'False 

0 'False 

1440 

5355 

0 'False 

' CenterOwner 



285 
1200 



375 



Al ignment 
Height 
Left 

MaxLength 
Tablndex 
Text 
Top 
Width 

End 

Begin VB.TextBox txtText 
BeginProperty Font 
Name 
Size 
Charset 

Weight = 
Underline 
Italic 

Strikethrough 
EndProperty 
Height 
Left 

MaxLength 
Tablndex 
Text 

ToolTipText 
Top 
Width 

End 

Begin VB . CommandButton cmdClose 



Right Justify 



False 
False 
False 



375 
1200 



" Ascom Mailsys FM Control 

"Text to display" 
360 
3975 



Cancel 
Caption 
Height 
Left 

Tablndex 

Top 

Width 



- 1 ' True 

"Close" 

375 

3960 

3 

960 
1215 



End 

Begin VB . CommandButton cmdSend 
Caption 
Default 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB. Label Label5 
Alignment 
BackStyle 



"&Send" 
- 1 ' True 
375 
2640 
2 

960 
1215 



' Center 
'Transparent 



Caption = 

Height 

Left 

Tablndex 

Top 

Width 

End 

Begin VB.Line Lines 
XI 
X2 



End 

Begin VB. Label Label4 
Al ignment 
BackStyle 
Caption 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB . Label Label3 
Alignment = 
BackStyle 
Caption 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB. Label Label2 
Alignment 
BackStyle 
Caption = 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB. Label Labell 
Alignment = 
BackStyle 
Caption 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB.Line Line4 
XI 
X2 



End 

Begin VB.Line Line3 



End 

Begin VB.Line Line2 



255 
3000 



3120 
3120 
240 
360 



' Center 

' Transparent 



255 
4680 



1 Center 

1 Transparent 



255 
3480 



' Center 

' Transparent 



255 
2280 



' Center 

' Transparent 



255 
1200 



4780 
4780 
240 
360 



3600 
3600 
240 
360 



End 

Begin VB.Line Linel 



2400 
2400 
240 
360 



1320 
1320 
240 
360 



End 

Begin VB. Label lbStartPos 
Al ignment = 1 

Caption 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB. Label IbText 
Alignment = 



Right Justify 
"Start Position: " 
255 
120 
5 

900 
975 



1 'Right Justify 
" Text : " 
255 
120 



Caption 
Height 
Left 

Tablndex 
Top = 42 0 

Width = 975 

End 

End 

Attribute VB_Name = " f rmTextToDi splay " 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmTextToDi splay provides an interface to send a text to the 
• FM that is written to its display 

Option Explicit 

Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 



Private Sub cmdSend_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 
FMActions object 
On Error GoTo ErrorHandler : 
ErrorHandler in case of an error 

Screen. MousePointer = vbHourglass 
mouse pointer 

Actions .Act iveConnect ion = fMainForm.Con 
connection to be used by Actions 

Actions .TextToDisplay txtText . Text , CInt (txtStartPos .Text) 
'Display text on FM 



' Create an new 
' Jump to 
'Show hourglass 
'Define the 



Screen. MousePointer = vbDefault 
mouse pointer 

Set Actions = Nothing 
Actions object 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

pointer 
ErrorHandler 



' Show default 
' Disassociate 



' Show default 
'Handle errors 



(show appropriate message) 
Set Actions = Nothing 
Actions object 
End Sub 

Private Sub txtStartPos_GotFocus ( ) 

SelectAll txtStartPos 
text in the TextBox 
End Sub 

Private Sub txtText_GotFocus () 

SelectAll txtText 
text in the TextBox 
End Sub 



' Select the whol 



Line 19: Class TabDlg.SSTab of control tabConfig was not a loaded 
control class. 



[SCC] 

SCC=This is a source code control file 
[ FMC t r 1 Demo . vbp ] 

SCC_Project_Name=this project is not under source code control 
SCC_Aux_Path=<This is an empty string for the mssccprj.scc file> 



Type=Exe 

Ref erence=*\G{ 0 002 043 0-0 0 0 0-0000 -CO 00- 00 0 000000046} #2 . 0#0#C: \WINNT 
\System32 \STDOLE2 . TLB#OLE Automation 

Ref erence=*\G{6B263850-9OOB-llD0-9484-00A0C91110ED}#l . 0#0#C: \WINNT 

\System32\MSSTDFMT.DLL#Microsoft Data Formatting Object Library 

Referenced \G{853A99F1- 9752- 11D3- 8 19E-0050048C727A}#1 . 0#0# . . 

\FMCtrlLib\FMCtrl\Debug\FMCtrl_d.exe#FMCtrl 1.0 Type Library 

Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COmdlg32,OCX 

Object={831FDD16-0C5C-llD2-A9FC-0000F8754DAl}#2 . 0#0 ; Mscomctl .OCX 

Object={BDC217C8-ED16-llCD-956C-0 0 00C04E4C0A}#l. 1#0 ; Tabctl32 . ocx 

Object={A8B3B723-0B5A-101B-B22E-00AA0037B2FC}#l. 0#0; Grid32 . OCX 

Module=Start; Start. bas 

Form=f rmMain . f rm 

Form=f rmAbout . f rm 

Form=f rmConf ig . f rm 

Form=f rmlnterf ace . f rm 

Form=f rmCounters . f rm 

Form=f rmDateTime . f rm 

Form=f rmTextToDi splay . f rm 

Form=f rmMailClassAdjust . f rm 

Form=f rmFranking . f rm 

Module=ErrorHnd; ErrorHandler . bas 

Module=Conversions ,- Conversions .bas 

I conForm= " f rmMain" 

Startup="Sub Main" 

HelpFile=" " 

Title="FM Control User Application Demo" 
ExeName32=" FMCtrlDemo . exe " 
Command32= " " 
Name= " FMCtrlDemo " 
HelpContext ID= " 0 " 

Description= "Demonstrates the usage of the FM Control library." 

CompatibleMode= " 0 " 

MajorVer=l 

MinorVer=2 

RevisionVer=0 

AutoIncrementVer= 0 

ServerSupportFiles=0 

VersionComments= "Demonstrates the usage of the FM Control library." 
VersionCompanyName="Ascom Autelca AG Mailing Systems, Switzerland" 
VersionFileDescription="Demonstrates the usage of the FM Control 
library. " 

VersionProductName="FM Control User Application Demo" 

Comp i 1 a t i onType = 0 

Opt imi z a t i onType = 0 

FavorPentiumPro (tra) =0 

CodeViewDebuglnf o=0 

NoAliasing=0 

BoundsCheck=0 

Overf lowCheck=0 

FlPointCheck=0 

FDIVCheck=0 

UnroundedFP= 0 

StartMode=0 

Unattended=0 

Retained=0 

ThreadPerObj ect=0 

MaxNumberOf Threads = 1 

DebugStartupOption=0 



Start = 197, 107, 828, 629, C 

frmMain = 33, 7, 903, 748, I, 267, 58, 792, 463, C 
frmAbout = -2, 6, 789, 751, C, 205, 209, 662, 560, C 
frmConfig = 191, 3, 927, 732, C, 266, 42, 723, 480, C 
frmlnterface = 49, 13, 848, 535, C, 15, 29, 246, 208, C 
frmCounters = 258, 28, 846, 626, C, 379, 4, 813, 271, C 
frmDateTime = 330, 97, 910, 671, C, 535, 21, 785, 240, C 
frmTextToDi splay = 27, 17, 838, 693, C, 377, 7, 783, 203, C 
f rmMailClassAdjust = 84, 16, 915, 643, I, 470, 10, 781, 192, C 
frmFranking = 12, 8, 799, 703, C, 180, 116, 691, 496, C 
ErrorHnd = 9, 9, 897, 651, C 
Conversions = 71, 2, 830, 73 5, C 



